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TERMINAL CONTROL SYSTEM REFERENCE MATERIAL 


The 4010A01 PLOT 10 Terminal Control System (TCS) Manual supports the following PLOT 10 
packages. Please place all orders through your Tektronix Sales Engineer. 

4010A01 PLOT 10 Terminal Control System 

4010A10 PLOT 10 Terminal Control System for IBM with TSO 

4010A11 PLOT 10 Terminal Control System for CDC SCOPE/Intercom with Opt. 20 

4010A12 PLOT 10 Terminal Control System for DEC PDP-11 with DOS 


PREFACE 

This manual is organized as a continuation of the 4010A01 PLOT 10 Terminal Control System User 
Manual. Routines described in the User Manual are not discussed in detail here. This format is 
based on the assumption that anyone using the System Manual has access to a User Manual. 

This manual supports Release 3.0 or later of TCS. If you have been using Release 2.0 of TCS, see 

the Appendix of this manual for information on updating your programs to run with Release 3.0 or 

later, including Level 1. 
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SECTION 1 


INTRODUCTION 

This manual describes all the 4010A01, 4010A10, 4010A11, and 4010A12 PLOT 10 Terminal 
Control System routines not covered in the User Manual. These are the internal subroutines, 
which in most cases need not be called by the user. Flow diagrams are provided for the 
package as a whole and individually for the more complicated routines. 

This manual also describes the Terminal Status Area, a common block of variables named 
/TKTRNX/, which represents the current state of the Terminal. 

For user who wish to modify the system, this manual provides discussions of parameter 
modifications, user-written transformation routines and deletion of unwanted features. 
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SECTION 2 TERMINAL CONTROL SYSTEM STRUCTURE 


2.1. Flowchart of Subroutine Groups 

The Terminal Control System contains 115 routines which can be divided into 4 functional groups: 

1. Graphics Routines 

A. Screen Routines 

B. Virtual Routines 

C. General Routines 

2. Alphanumerics Routines 

3. Utility Routines 

4. System Input/Output Routines 


The following flowchart shows the functional relationships of the 4 groups. The relationships of all in¬ 
dividual routines are shown in the TCS Flow Chart, Section A4 of this manual. 



Subroutine Group Structure Flow Chart. 
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2.2 Subroutine Group Descriptions 

This section provides a brief description of each of the routines in the 4 functional groups, including 
those described in detail in the TCS User Manual. 


2.2.1 Graphics Routines 

The graphics routines can be subdivided into 3 groups: 

A. Screen Routines 

B. Virtual Routines 

C. General Routines 

A. SCREEN ROUTINES 

These routines allow the user to perform screen-level graphics. Each routine places the Terminal in the 
proper mode and sends the character(s) necessary to perform the desired operation with a minimum of 
overhead. 


THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS USER'S MANUAL: 


Graphic Output Routines 


DRWABS 

DRWREL 

DSHABS 

DSHREL 

*INCPLT 

MOVABS 

MOVREL 

PNTABS 

PNTREL 


performs a screen level draw to absolute coordinates. 

performs a draw to coordinates relative to the current beam position. 

draws a dashed line to absolute coordinates. 

draws a dashed line to coordinates relative to the current beam position. 

plots points incrementally in the desired direction. 

performs a screen level move to absolute coordinates. 

performs a move to coordinates relative to the current beam position. 

draws a point at absolute coordinates. 

draws a point at coordinates relative to the current beam position. 


Graphic Input Routines 

* DCURSR activates the crosshair for screen graphic input and accepts graphic input characters. 

* SCURSR performs the same function as DCURSR. 

Measurement Conversion Routines 

KCM function which converts centimeters to raster units. 

KIN function which converts inches to raster units. 

“Applies only to the 4014 or 4015 Terminal with Enhanced Graphics Module. 

““Does not apply to the 4006 Terminal. See the Appendix for more information 
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THE FOLLOWING ROUTINE IS DESCRIBED IN THE SYSTEM MANUAL: 

*IPMOD places the Terminal in incremental plot mode. 

B. VIRTUAL ROUTINES 

The following routines allow the user to specify moves and draws in any given coordinate system. The 
Terminal Control System converts these moves and draws into screen coordinates. The virtual routines 
also include those routines which establish the data to screen relationship and those which access the 
previouslyestablished relationship. THESE ROUTINES ARE DESCRIBED IN THE USER MANUAL: 


Graphic Output Routines 


DASHA 

DASHR 

DASHSA 

DASHSR 

DRAWA 

DRAWR 

DRAWS A 

DRAWSR 

MOVEA 

MOVER 

POINTA 

POINTR 


draws a dashed line in absolute, virtual coordinates. 

draws a dashed line in virtual coordinates, relative to the current beam position, 
draws a segmented dashed line to absolute coordinates defined by a polar transformation, 
draws a segmented dashed line to relative coordinates defined by a polar transformation, 
draws to absolute, virtual coordinates, 
draws to relative, virtual coordinates. 

draws a segmented line to absolute coordinates defined by a polar transformation. 

draws a segmented line to relative coordinates defined by a polar transformation. 

moves to absolute, virtual coordinates. 

moves to relative, virtual coordinates. 

draws a point at absolute, virtual coordinates. 

draws a point at relative, virtual coordinates. 


Relationship Establishing Routines 

DWINDO sets the corners of the virtual window. Performs the same function as VWINDO. 
LINTRN sets the transformation to linear. 

LOGTRN sets the transformation to log or semi-log. 

POLTRN sets the transformation to polar. 

R ROTAT sets the rotation factor for relative virtual graphics. 

RSCALE sets the scaling factor for relative virtual graphics. 

SWINDO sets the corners of the screen window. Performs the same function as TWINDO. 

TWINDO sets the corners of the screen window. Performs the same function as SWINDO. 

VWINDO sets the corners of the virtual window. Performs the same function as DWINDO. 


’Applies only to the 4014 or 4015 Terminal with Enhanced Graphics Module. 
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Graphic Input Routines 

* VCURSR activates the crosshair cursor for virtual graphic input and accepts graphic input 
characters. 

THESE ROUTINES ARE DESCRIBED IN THE TCS SYSTEM MANUAL: 

Scaling Routines 

RESCAL calculates all transformation parameters. 

PSCAL called by RESCAL to calculate the polar transformation parameters. 

Conversion and Clipping Routines 

CLIPT checks for the need to clip vectors in virtual space; clips the vectors or calls PARCLT. 

LVLCHT checks for the need to match virtual and screen coordinates. 

PARCLT clips lines parallel to a screen window edge. 

PCLIPT determines whether coordinates are inside or outside the virtual window. 

REL2AB converts relative coordinates to absolute coordinates. 

REVCOT transforms screen coordinates into virtual coordinates. 

V2ST converts virtual coordinates to screen coordinates and moves to the clipped starting co¬ 

ordinate if necessary. 

WINCOT transforms virtual coordinates into screen coordinates. 

C. GENERAL ROUTINES 

The following routines are used by the screen and virtual routines to set Status Variables, place the 
Terminal in a particular mode and/or output appropriate graphics. 

THESE ROUTINES ARE DESCRIBED IN THE TCS SYSTEM MANUAL: 

DSHMOD sets the Terminal for outputting a dashed line. 

PLTCHR computes the ADE characters needed to address a screen location. 

**PNTMOD places the Terminal in point plot mode. 

TKDASH constructs and outputs dashed lines. 

TKPNT outputs a point. 

VECMOD places the Terminal in vector mode. 

XYCNVT produces an optimized set of plot characters. 

’Does not apply to the 4006 Terminal. See Appendix for more information. 

’’Applies only to the 4014 or 4015 Terminal with Enhanced Graphics Module. 
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2.2.2. Alphanumerics Routines 

These routines control and execute alphanumeric input and output in one of three formats: 

A1 FORTRAN format; 

Am FORTRAN format, where m is the number of characters per word available on a particular 
system, as defined at implementation; 

ADE (ASCII Decimal Equivalent) format, where each ASCII character is represented by an integer 
from 0 to 127 (see the USASCII Code Functions Charts at the end of this manual). 


THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS USER MANUAL: 


Input/Output Routines 


A1IN allows the user to input an array in A1 FORTRAN format. 

AINST accepts an array in Am FORTRAN format. 

A10UT outputs an array of characters in AT FORTRAN format. 

ANCHO outputs a non-control ADE (ASCII Decimal Equivalent) character. 
ANSTR outputs an array of non-control ADE characters. 

AOUTST outputs an array of characters in Am FORTRAN format. 


Terminal Controlling Routines 


ANMODE 

BAKSP 

CARTN 

*CHRSIZ 

HOME 

LINEF 

NEWLIN 

RSTTAB 

SETMRG 

SETTAB 

TABHOR 

TABVER 

TTBLSZ 


places the Terminal in alphanumeric mode and dumps the output buffer. 

causes the A/N cursor to move back one space. 

moves the A/N cursor to the left margin. 

changes the current character size. 

returns the cursor to the Home position (0,767). 

moves the A/N cursor down one line (line feed). 

calls CARTN and LINEF. 

selectively removes tabs. 

sets the Terminal screen margins. 

sets tabs in user-defined tab tables. 

moves to the next value in the horizontal tab table. 

moves to the next value in the vertical tab table. 

notifies Terminal Status Area of the user-defined dimensions of a tab table. 


Information Returning Routines 

*CSIZE provides the current character height and width in raster units. 

LEFTIO function which returns the remaining space in the output buffer or the number of char¬ 

acters remaining in the input buffer. 

‘Applies only to the 4014 or 4015 Terminal. 
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LINWDT function which returns in raster units the width of a given number of adjacent characters. 

LINHGT function which returns in raster units the height of a given number of lines. 


THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS SYSTEM MANUAL: 


FORTRAN-ADE Translation Routines** 

KA12AS converts A1 characters to ADE characters. 

KAM2AS converts Am characters to ADE characters. 
KAS2A1 converts ADE characters to A1 characters. 
KAS2AM converts ADE characters to Am characters. 


Terminal Controlling Routines 

ALFMOD places the Terminal in alphanumeric mode. 


2.2.3. Utility Routines 

These routines allow the user to have direct control of features of the Terminal and the Terminal 
Control System not related to graphics or alphanumerics. 

THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS USER MANUAL: 


Terminal Controlling Routines 


BELL 
*CZAXIS 
ERASE 
FINITT 
HDCOPY 
INITT 
NEWPAG 
RECOVR 
RESET 
RESTAT 


causes the Terminal bell to ring, 
changes the Z-Axis mode. 

erases the Terminal screen without changing the beam position. 

terminates the program in which it appears. 

causes a hardcopy to be generated. 

initializes the Terminal Control System. 

erases the screen and returns the cursor to the Home position. 

updates the Terminal hardware to match the Status Variables. 

initializes the Terminal Control System without a page erase. 

restores the Status Variable values which were saved by SVSTAT. 


**See page 2-5 for an explanation of terms. 
* Applies only to the 4014 or 4015 Terminal. 
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SETBUF specifies an output buffer type. 

SVSTAT saves the current Status Variable values. 

*TERM specifies the Terminal type and addressing (1024 or 4096 addressable points) in use. 

Information Returning Routines 

SEEBUF returns the current format of the output buffer. 

SEEDW returns the current values of the virtual window limits. 

SEE LOG returns the last position of the graphic beam. 

*SEEMOD returns the current hardware dash type, Z-Axis mode and Terminal mode. 

SEEMRG returns the values of the current screen margins. 

SEEREL returns the scaling and rotation variable values. 

SEETRM returns the type of Terminal and addressing which has been specified. 

SEETRN returns the type of transformation in use. 

SEETW returns the current values of the screen window limits. 

Input/Output Routines 

TINPUT accepts an input of one ADE character. 

Tl NSTR accepts an array of ADE characters. 

TOUTPT outputs a single ADE character. 

TOUTST outputs an array of ADE characters. 

THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS SYSTEM MANUAL: 

Terminal Controlling Routines 

lOWAIT causes the system to wait while the Terminal is busy. 

*CWSEND sets the hardware dash type and Z-Axis mode. 

Information Returning Routines 

GENFLG checks the general condition flag, KGNFLG. 

TCSLEV returns the software release number and the date of the last modification. 

‘Applies only to the 4014 or 4015 Terminal. 
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2.2.4. System I/O Routines 

These routines provide the I/O interface between the Terminal Control System and the user's computer 
system. 

THE FOLLOWING ROUTINES ARE DESCRIBED IN THE TCS SYSTEM MANUAL: 

Output Buffering Routines 

BUFFPK packs the TCS output buffer. 

TSEND dumps the output buffer. 

User-Written I/O Routines* 

**ADEIN accepts input, usually from the Terminal, in system-dependent format and converts it to 
an array in ADE format. 

**ADEOUT converts characters from ADE to system-dependent format and outputs them, usually 
to the Terminal. 


’Supplied by Tektronix for TSO, PDP-11 and CDC-Synchronous versions of TCS. 

**ADE (ASCII Decimal Equivalent) is the ASCII character set represented in integers from 0 to 127. See the 
USASCII Functions Charts at the end of this manual. 
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SECTION 3 SYSTEM SUBROUTINE DESCRIPTIONS 


The subroutines described in this section are NOT described in the TCS User Manual. They are 
system routines which in most cases need not be called by the user. Flow charts are included for the 
more complex routines. The following routines are described in alphabetical order: 


ALFMOD 

PNTMOD 

BUFFPK 

PSCAL 

CLIPT 

REL2AB 

CWSEND 

RESCAL 

DSHMOD 

REVCOT 

GENFLG 

TKDASH 

lOWAIT 

TKPNT 

IPMOD 

TSEND 

LVLCHT 

V2ST 

PARCLT 

VECMOD 

PCLIPT 

WINCOT 

PLTCHR 

XYCNVT 


See the Appendix for descriptions of the six user-written, system-dependent subroutines:* 
ADEIN 
ADEOUT 
KA12AS 
KAM2AS 
KAS2A1 
KAS2AM 


3.1. ALFMOD — Enter Alphanumeric Mode 

ALFMOD outputs an ASCII US character which places the Terminal in alphanumeric mode. Sub¬ 
sequent data sent to the Terminal will be interpreted as alphanumeric characters rather than as graphic 
vectors. This routine always sends a US, since the Terminal mode is not checked. ALFMOD is different 
from ANMODE in that it does not dump the output buffer. 

Calling Sequence: 

CALL ALFMOD 


*Supplied by Tektronix for TSO, PDP-11 and CDC-Synchronous versions of TCS. 
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3.2. BUFFPK - Pack the Buffer 

BUFFPK loads the ADE characters it receives into an output buffer. When the buffer is filled or when 
a buffer dump is requested, BUFFPK calls ADEOUT to perform the output. For buffer types 1, 2, or 
3, if NCHAR is larger than MAXLEN, the size of the buffer (see page A2), the extra characters are 
truncated and lost. Buffer type 4 assumes ADEOUT can handle any size buffer array. If the buffer 
is type 1 or 2, extra characters are added to counteract the effects of CR, LF, etc. between outputs. 
(For more information, see SETBUF in the User Manual and page A2 of this System Manual.) 

Calling Sequence: 

CALL BUFFPK (NCHAR,lARRAY) 

Parameters Entered: 

NCHAR The number of characters to be added to the buffer. NCHAR = 0 is a request to dump 
the buffer. 

I ARRAY The array containing the characters to be added to the buffer in ADE format. 

3.3. CLIPT — Clip Virtual Vectors 

CLIPT checks for the need to clip virtual vectors and clips those in need before they are converted to 
screen coordinates. Horizontal and vertical lines are handled separately. Calling this routine will affect 
the Status Variable KGNFLG in the Terminal Status Area as follows: 

KGNFLG = 0 if any part of the vector is inside the window 
= 1 if the vector is entirely outside the window 


Calling sequence: 


CALL CLIPT(BUFIN,BUFOUT) 


Parameter Entered: 


BUFIN 


An array containing the end points of the line segment (vector) before 
clipping. 


Parameter Returned: 

BUFOUT An array containing the endpoints of the clipped line segment. 


I NOTE j 

The format of both the above arrays is: 


1. beginning X 

2. beginning Y 

3. ending X 

4. ending Y 
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BUFFPK 



NO 

ADD TIMING 
CHARACTERS 




BEGIN NEXT 
BUFFER WITH 
SYN TO CANCEL 




1 


ESC 


c 


RETURN 




* Buffer type is changed by calling SETBUF. 
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3.4. CWSEND — Send a Control Word 


CWSEND* is called when the user changes the Status Variables KLINE and KZAXIS through CZAXIS 
or any of the dashed line routines. CWSEND outputs the ESC sequence necessary to compensate for 
interline characters and sets the hardware dash type and Z-Axis mode. 

Calling Sequence: 

CALL CWSEND 


3.5. DSHMOD — Enter Dashed Line Mode 

DSHMOD outputs a US to reset the Terminal, then a GS to place the Terminal in graphics mode if the 
Terminal is not already in dashed line mode. DSHMOD enters the dash type into the Status Variable 
KDASHT and cancels graphic output optimization. 

Calling Sequence: 

CALL DSHMOD (L) 

Parameter Entered: 

L The dash type for the next dashed line (see the User Manual, Section 3.12). 


3.6. GENFLG — Check the General Condition Flag 

GENFLG allows the user to reference Status Variable KGNFLG in the Terminal Status Area. (See 
Section 5.1 fora list of KGNFLG values.) This variable is set in CLIPT, PCLIPT, SETTAB and RESCAL. 
The user may call GENFLG with no effect on the Terminal Status Area. 

Calling Sequence: 

K = GENFLG (ITEM) 

Parameter Entered: 

ITEM The value (0 or 1) for which the user is checking. 

Parameter Returned: 

K True if ITEM = KGNFLG; otherwise false. 

3.7. lOWAIT - Wait During I/O 

lOWAIT sends a series of SYN characters so that no data will be sent while the Terminal is busy. The 
number of SYN characters sent is determined by multiplying the desired wait time (ITIME) by the 
number of characters transmitted per second (as determined by INITT). The user may call lOWAIT with 
no effect on the Terminal Status Area. 


*Applies only to the 4014 or 4015 Terminal with Enhanced Graphics Module. 
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Calling Sequence: 


CALL lOWAIT (ITIME) 

Parameter Entered: 

ITIME The wait time in tenths of a second. 

3.8. IPMOD — Enter Increment Mode 

IPMOD* outputs as US to cancel any previous mode and sets the Terminal to alphanumeric mode. It 
then outputs an RS to put the Terminal in incremental plot mode. 

Calling Sequence: 

CALL IPMOD 


3.9. LVLCHT - Check Graphic Level 

LVLCHT checks the Status Variable KG RAF L to determine whether it is necessary to update the 
virtual coordinates to match the screen coordinates. An update is needed when KG RAF L has been set 
to 0 by any screen level graphic routine. LVLCHT calls subroutine REVCOT to update the virtual 
coordinates. 

Calling Sequence: 

CALL LVLCHT 

3.10. PARCLT — Clip Lines Parallel to Window Edge 

PARCLT is used to clip a line which is parallel to the window edge. The routine checks to see if the end 
points of the clipped line are within the range of a pair of given limits (usually the window limits). It re¬ 
turns a pair of values inside the limit range. The user may call PARCLT with no effect on the Terminal 
Status Area. 

Calling Sequence: 

CALL PARCLT (RL1,RL2,RM1,RM2,RN1,RN2) 

Parameters Entered: 

RL1 The variable No. 1 to be checked. 

RL2 The variable No. 2 to be checked. 

RM1 The minimum limit of the desired range. 

RM 2 The maximum limit of the desired range. 

Parameters Returned: 

RN1 The variable No. 1 with a value inside the desired range. 

RN2 The variable No. 2 with a value inside the desired range. 

*This routine applies only to the 4014/4015 Terminals with Enhanced Graphics Module. 
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3.11. PCLIPT — Clip a Point Outside the Virtual Window 

PCLIPT determines whether a given point is inside the virtual window. The routine sets Status Variable 
KGNFLG to = 0 if the point is inside. 

Calling Sequence: 

CALL PCLIPT(X,Y) 

Parameters Entered: 

X The virtual X coordinate being checked. 

Y The virtual Y coordinate being checked. 


3.12. PLTCHR — Convert X,Y Plot Characters 

PLTCHR returns an array containing the ADE (ASCII Decimal Equivalent) characters which are needed 
to address a given point on the Terminal screen. The order in which this array is returned is: 

HiY, LSBYX*, LoY, HiX, LoX. 

This routine sets variable KPADV in the Terminal Status Area. KPADV contains the number of timing 
SYN characters needed. 

Calling Sequence: 

CALL PLTCHR(IX,IY,ICHAR) 

Parameters Entered: 

IX The X-coordinate of the point. 

lY The Y-coordinate of the point. 

Parameter Returned: 

ICHAR The array containing the plot characters. 


3.13. PNTMOD - Enter Point Plot Mode 

PNTMOD outputs a US to set the Terminal to alphanumeric mode, without checking for the previous 
Terminal mode. It then cancels the optimization of plot characters and sets Status Variable KKMODE 
to 2. If the Terminal is a 4014 or 4015 with Enhanced Graphics Module, PNTMOD also outputs an FS 
to place the Terminal in hardware point plot mode. 

Calling Sequence: 

CALL PNTMOD 


‘Least Significant Bit(Y,X); this bit is used for 12-bit (4096) addressing on the 4014 or 4015 Terminal with the Enhanced 
Graphics Module. For other terminals or for regular 10-bit (1024) addressing, this character is ignored. 
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3.14. PSCAL — Scale the Polar Transformation 

PSCAL calculates the information needed for a polar transformation. The limits of a polar window of 
the shape requested are determined from the angle minimum (TRPAR1), angle maximum (TRPAR2), 
radius suppression (TRPAR5), and the virtual radius minimum and maximum (TMINVX and TMAXVX). 
The calculated limits are used to determine the angle scale factor (TRFACY), the X and Y screen offsets 
(TRPAR3 and TRPAR4), and the angle offset (TRPAR6). 

Calling Sequence: 

CALL PSCAL 


3.15. REL2AB — Convert Relative to Absolute 

REL2AB computes and returns an absolute virtual coordinate specified by the displacement requested, 
scale and rotation factors (supplied by RSCALE and RROTAT stored in the Terminal Status Area) and 
the present virtual location stored in the Terminal Status Area. The present virtual location is used as the 
origin for rotation and scaling. REL2AB calls LVLCHT to update the virtual coordinates before per¬ 
forming the calculation. 

Caliing Sequence: 

CALL REL2AB (XIN, YIN,XOUT,YOUT) 

Parameters Entered: 

XIN The virtual X displacement. 

YIN The virtual Y displacement. 

Parameters Returned: 

XOUT The updated X absolute coordinate. 

YOUT The updated Y absolute coordinate. 

3.16. RESCAL — Set the Transformation Scale 

RESCAL calculates the linear and logarithmic transformation parameters used by REVCOT and 
WINCOT. RESCAL uses the Status Variables set by VWINDO, SWINDO,DWINDOand TWINDO and 
the transformation routines POLTRN, LINTRN and LOGTRN. After the calculation, the transformation 
parameters are stored in the Terminal Status Area. RESCAL calls PSCAL to calculate polar transformation. 


RESCAL sets KGNFLG = 1 if the transformation requested is an invalid one, such as a logarithmic 
transformation on an axis with negative limits. Otherwise, KGNFLG = 0. 

Provision for a user-defined transformation is included (see Section 4.2). 

Calling Sequence; 

CALL RESCAL 
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3.17, REVCOT — Transform Window Coordinates 

REVCOT transforms screen coordinates into virtual coordinates. The transformation parameters have 
different meanings depending on whether linear, logarithmic or polar transformation is in effect. The 
routine branches to a different section for each type of transformation. Provision for a user-defined 
transformation is included (see Section 4.2). Calling REVOCT has no effect on the Terminal 
Status Area. 

Calling Sequence: 

CALL REVCOT(IX,IY,X,Y) 

Parameters Entered: 

IX The screen X coordinate. 

lY The screen Y coordinate. 

Parameters Returned: 

X The virtual X coordinate. 

Y The virtual Y coordinate. 

3.18. TKDASH 

TKDASH constructs and outputs dashed lines. The dash type is determined by the Status Variable 
KDASHT set by subroutine DSHMOD. If the dash type is a software type, TKDASH constructs a table 
which gives the length of each segment in raster units. This table is used to determine the destination of 
each light or dark segment drawn until the end point of the line is reached. If the starting point of this 
line is the same as the end point of the last line drawn and the dash type is the same, the pattern is con¬ 
tinued and not restarted. 

If the dash type is 1, 2, 3 or 4 and the Terminal is a 4014 or 4015 with Enhanced Graphic Module, the 
dash type is set in the Terminal Status Area and CWSEND is called to output the control sequence needed 
to place the Terminal in the correct state. A vector to the destination is then output. 

If another model Terminal is used, the hardware dash types are simulated by software dash types (see 
the User Manual, Section 3.12). 


Calling Sequence: 

CALLTKDASH(IX,IY) 

Parameters Entered: 

IX The X screen coordinate of the dashed line destination. 

IY The Y screen coordinate of the dashed line destination. 
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3.19. TKPNT — Output a Point 


TKPNT plots the point specified in hardware point plot mode, for a 4014 or 4015 Terminal with Enhanced 
Graphics Module. If the Terminal does not have the hardware capabilities, the routine causes a move 
to the point and the drawing of the point to simulate point plot mode. The user can set the Terminal 
type in subroutine TERM. 

Calling Sequence: 

CALLTKPNT(IX,IY) 

Parameters Entered: 

IX The X coordinate of the point. 

lY The Y coordinate of the point. 


3.20. TSEND — Dump the Buffer 

TSEND calls BUFFPK with the length parameter = 0, causing the output buffer to be dumped. 

Calling Sequence: 

CALL TSEND 

3.21. V2ST — Transform Virtual to Screen Coordinates 

V2ST converts coordinates from virtual space to screen space and creates a move to the clipped starting 
coordinates if it is appropriate. This routine returns the screen coordinates for subroutines MOVEA, 
DRAWA, POINTA or DASHA. V2ST updates both the graphic and imaginary beams. The imaginary 
beam accounts for a point addressed in virtual space which cannot be represented on the terminal 
screen. V2ST references the Status Variable KGNFLG; if KGNFLG = 1, the entire line is outside the 
window, and neither V2ST nor the four virtual absolute routines take any action. 

Calling Sequence: 

CALL V2ST(I,X,Y,IX,IY) 

Parameters Entered: 

I An integer flag which equals 0 if the routine is called for a move or a point plot and 

does not equa l 0 if the routine is called for a draw or a dashed line. 

X The virtual space X coordinate. 

Y The virtual space Y coordinate. 

Parameters Returned: 

IX The screen X coordinate. 

lY The screen Y coordinate. 
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3.22. VECMOD — Enter Graphics Mode 

VECMOD outputs a US to set the Terminal to alphanumeric mode, if the Terminal is not already in 
graphics mode. The routine then replaces the plot characters with an invalid value (-1) so that they will 
be updated by the next vector. The routine then outputs a GS to place the Terminal in graphics mode and 
cause the next vector to be dark. 

Calling Sequence; 

CALLVECMOD 


3.23. WiNCOT — Transform Window Coordinates 

WINCOT transforms virtual coordinates into the appropriate screen coordinates. A branch is made to a 
different section of the routine, depending on whether the transformation in effect is linear, logarithmic 
or polar. The user can define his own transformation (see Section 4.2). Calling this routine 
does not affect the Terminal Status Area. 

Calling Sequence: 

CALL WINCOT(X,Y,IX,IY) 

Parameters Entered: 

X The virtual X coordinate. 

Y The virtual Y coordinate. 

Parameters Returned: 

IX The screen X coordinate. 

lY The screen Y coordinate. 


3.24. XYCNVT - Convert and Output X,Y 

XYCNVT compares the plot characters needed to draw to a specified location with the last set of plot 
characters sent. It then produces an optimized set of plot characters to draw the vector. Reducing the 
number of plot characters has two advantages: 

1. There is less chance of transmission errors. 

2. Less transmission time is required to draw the vector. 

The routine is designed so that bright vectors are not drawn repeatedly to the same screen location. This 
saves time and avoids damaging the screen. A vector is drawn if any one of the following conditions is 
true: 


1. The endpoint of the vector is different from that of the last vector drawn. 

2. The previous vector was a dark vector to the same location. 
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3. The desired vector is dark (i.e., a move). 
Calling Sequence; 

CALLXYCNVT(IX,IY) 

Parameters Entered: 

IX The screen X coordinate. 

lY The screen Y coordinate. 
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SECTION 4 MODIFYING THE SYSTEM 


This section describes ways in which the Terminal Control System can be modified. Three types of 
changes are described: 

1. Changing the I/O and translate parameters to fit individual computer system requirements. 

2. Adding user-written transformation routines. 

3. Reducing the size of the package. The user can eliminate: 

. unused routines; 

. polar and/or logarithmic transformations; 

. unnecessary I/O routines. 

The actual "pruning” of the package can occur on either of two levels: 

A—LEVEL PRUNING removes unused routines. Internally called routines are replaced by 
smaller dummy routines. 

B—LEVEL PRUNING removes all the code which supports unused features. 



Routines should be eliminated from the system only after careful consideration. Removal should be 
well documented by the user. If the software is pruned as indicated, however, it will be fully supported 
by Tektronix. 


4.1. Changing I/O and Translate Parameters 

The input and output buffers and translate arrays of the Terminal Control System are based on a line 
length of 72 characters (the longest line possible on some computer systems*). The user can change these 
values to the limits allowed by his computer system. 


Routine 

Parameter 

Use 

Present Value 

A1IN 

lADE 

Translate array 

Dimensioned to 72 


MAXLEN 

Maximum data length 

72 characters 

A10UT 

lADE 

Translate array 

Dimensioned to 72 

AINST 

lADE 

Translate array 

Dimensioned to 72 

! 

MAXLEN 

Maximum data length 

72 characters 

ANSTR 

MAXLEN 

Maximum characters sent to 
TOUTST 

Set in KACHAR 

AOUTST 

lADE 

Translate array 

Dimensioned to 72 


MAXLEN 

Maximum data length 

72 characters 

BUFFPK 

IDATA 

Data array 

Dimensioned to 72 


MAXLEN 

Maximum size of data array 

72 characters 


*132 on ISO and PDP-11 systenns; 80 on CDC-Synchronous systems. 
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Routine 

Parameter 

Use 

Present Value 

INITT j 
RESET 1 

-1- --1 

Common default assignments; see Section 5 
changes. 

i. Be very careful when making 

TINSTR 

INBUFF 

Input data array 

Dimensioned to 72 

TOUTST 

lUSE 

Data transfer array 

Dimensioned to 72 


MAXLEN 

Maximum data length 

72 characters 


4.2. Adding User-Written Transformations 

In addition to linear, logarithmic and polar transformations, the Terminal Control System allows the 
user to add his own transformation. To do this, he must write the following four routines: 

Subroutine USETRN 

This routine allows the program to perform a user-defined transformation. Status Variable KEYCON 
should be set to 4. The routine should also set any other Status Variables necessary for the transfor¬ 
mation calculations (see Section 5). 

Calling Sequence; 

CALL USETRN [user-defined arguments] 


Subroutine URSCAL 

This routine uses the Status Variables set by USETRN to calculate the parameters needed to perform 
the transformation. 

Calling Sequence; 

CALL URSCAL 


Subroutine USECOT 

This routine converts virtual coordinates (X,Y) into screen coordinates (IX,IY) through the use of the 
Status Variables set by URSCAL. 

Calling Sequence: 

CALL USECOT(X,Y,IX,IY) 


Subroutine UREVCT 

This routine converts screen coordinates (IX,IY) into virtual coordinates (X,Y). 
Calling Sequence: 

CALL UREVCT(IX,IY,X,Y) 
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In addition to writing the above routines, the user must change subroutine RESCAL to allow the 
calling of URSCAL when KEYCON = 4. Similar changes should be made to allow the calling of 
UREVCT from subroutine REVCOT and USECOT from subroutine WINCOT. 


If the user wishes to define segmented vectors for his transformation, he should write subroutine 
USDRAW(X,Y) and subroutine USDASH(X,Y,L) to perform these functions. Subroutines DRAWSA 
and DASHSA should be modified accordingly to allow the calling of USDRAW and USDASH. The 
parameters of USDRAW and USDASH should correspond respectively to those of DRAWSA and 
DASHSA. The following is an example of a user-written transformation: 

C * SAMPLE PROGRAM TO USE USER TRANSFORMATION 
CALI INITT(3fiJ) 

CALL DWINOO(0,,I0,f0,, 10,) 

CALL MOVEAC0,,0,) 

00 10 1*1,10 

C * SHOR THE DEFAULT TRANSFORMATION 
CALL DRAWA(FL0AT(n,FL0AT(n) 

10 CONTINUE 

C * INVOKE THE USER TRANSFORMATION 
CALL U3ETRN 
CALL MOVEA(0,,0,) 

00 20 1*1,10 

C * SHOW THE USER TRANSFORMATION 

CALL 0ASHA(FLGAT(n,FL0AT(I),2) 

20 continue 

call MOVEA(0,,0,) 

DO 30 1*1,10 

C * SHOW THE USER segmented AND TRANSFORMED LINE 
CALL 0RAWSA(FL0AT(n,FLaAT(I)) 

30 CONTINUE 

CALL FINITT(0,700) 

FND 

C * SUBROUTINE TO INVOKE USER TRAmSFORMATION * 

SUBROUTINE U3ETRN 

COMMON /TKTRNK/ TMINVX,TMINVY,THAXVX,TMAXVY,TREALX,TREALY, 

1 TIMAGX,7IMAr,Y, TRCOSF, TRSINF, TRSC AL, TRFACX, TRF AC Y, 

2 TRPARl,TRPAR2,TRPAR5,TRPAR4,TRPAR5,TRPAR6,KMOFLGCfl),KPAD2, 

3 K0AUOR,KGNFLG,KGRAFL,KHOMFY,KKMODE,KHORSZ,KVERSZ,KTBLSZ, 

4 KSIZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXIS,K0EAMX,KBEAMY, 

5 KMOVEF,KPCHAH(S),KDASHT,KMINSX,KM I NSY,KMAXSX,KMAXSY,KEYCON, 

6 KINLPr,KOrLFT,KUNlT 
KEYCONaa 

CALL RESCAL 
RETURN 
END 
C 

C * SUBROUTINE TO CALCULATE USER TRANSFORMATION PARAMETERS 
SUBROUTINE URSCAL 

COMMON /TKTRNX/ TMIMVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY, 

1 TIMAGX,TIMAGY,TRCOSF,TRSINF,TRSCALrTRFACX,TRFACY, 

2 TRPARl,TRPAR2,TRPAR3,TRPAHa,TRPAR5,TRPAR6,KMOFLG(8),KPA02r 
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5 KBAU0R»KGNFUli»KG«AM,,KH0MEyrKKM00frKH0RS4,KVE«SZ,KTBLSZ, 

a K8IZEF,KLMRGN,KRMRCN,KrAGT«,KTERM,KLINEfKZAXI8»KBEAMX#KBEAMY» 
b KM0VfcF.KPCHAR(5)»KDASHT»KMlNSX,KMlNSY#KMAX8X,KMAXSY,KEYC0N, 

6 KINtf T,K0TLFT»KIINIT 

C * CALCULATE THE HINIMUM TRANSFORMED VALUE OF X AND Y 
TRPAR1«TMINVX**3 
TRPAR2«TM1NVY**5 

C * CALCULATE SCALE FACTORS X AND Y AS SCREEN RANGE / TRANSFORMED RANGE 
TRFACX»FL0AT(KMAXSX«KMINSX)/(TMAXVX**3»TRPAR1) 
TRFACYPFL0AT(KMAXSY*KHINSY)/(TMAXVY**5-TRPAR2) 

RETURN 

END 

C 

C * SUBROUTINE TO CALCULATE USER TRANSFORMATION SCREEN COORDINATES 
subroutine USEC0T(X,Y,IX,IY) 

common /TKTRNX/ TMlNVX,TMlNVY,TMAXVX,TMAXVY,TREALX,TRtALY, 

1 timagx,timagy»trcosf,trsinf,trscal,tkfacx,trfacy, 

2 TRPARl,TRPAR2,TRPAR3,THPARa,TRPAR5,THPAR6,KMOFLG(0),KPAD2, 

3 KBAUORrK6NFLG»KGRAFL,KMOMEY,KKMODE,KHORSZ,KVtRSZ#KT0USZ, 

a K8IZEF,KLMRGN,KRMRGN,KFACTR,KTERM,KLINE,KZAXI8#KBEAMX,KBEAMY, 

3 KMOVCF,KPCHAR(3),KDASHT,KMINSX,KMINSY»KMAXSX,KMAXSY,KEYCON, 

6 KINLFT,K0TLFT»KUNIT 
C * TRANSFORM X AND Y 
XTEMPaX**3 
YTEMPsY**b 

C ♦ SUBTRACT THE MINIMUM TRANSFORMED VALUES 

xtempxxtemp#tppari 

YTEMPsYTEMP-TRPAR? 

C * SCALE TO FIT SCREEN WINDOW 

xtemp*xtemp*trfacx 

YTEMPeYTEMPwTRFACY 
C * ADO THE SCREEN ORIGIN 

1X«KMINSX-HFIX(XTEMP) 

IY*KMINSY+IFIX(YTEMP) 

RETURN 

END 

C * SUBROUTINE TO USER SEGMENT LINES 
subroutine USDRAW(X,y) 

COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVYrTHEALX,TREALY, 

1 TIMA6X,TIMAGY»TRCOSF,7RSINF,TRSCALfTRFACX,TRFACY» 

2 TRPARl,TRPAR2,TRPAR3,TRPAR4,rRPAR5,TRPAR6,KM0FLG(8),KPA02, 

3 KBAUDR,KGNFLr,,KGRAFL#KHOMEY,KKMODE,KHORSZ,KVtRSZ#KTBLSZ, 

a KSI/EF,KLMRGN,KRMRGN,kE AC TR#KTtHM, KUNE rKZ AXIS, K8EAMX,K8EAMY, 

5 KMOVEF,KPCHARCB),KDASMT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYC0N, 

6 kinlft,kotlft,kumit 

C * MAKE SURE CURRANT VIRTUAL BEAM IS CORRECT 
CALL LVLCHT 
C * DRAW HORIZONAL 

CALL DRAWA(X,TIMAGY) 

C * VERTICAL DRAW TO FNf) POINT WKL BE DONE IN DRAWSA 
RETURN 
END 


@ 
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The "C” which indicates a comment line is then removed from the appropriate CALL statements in 
DRAWSA, RESCAL and WINCOT, as marked by an arrow at the left margin. 

DRAWSA 

C * USER SEGMENTATION 
400 CONTINUE 

-► CALL USORAIN(X,Y) 

GO TO 100 
END 


RESCAL 

C * USER FUNCTION 
400 CONTINUE 

-► CALL URSCAL 

GO TO 600 


c * 

NO scale 

500 

TRFACXal* 


TRFACYsl, 

600 

RETURN 


end 


WINCOT 


C * iJSEP transformation in use 

700 CONTINUE 

-^ CALL UStCOTIX,Y, IX, lY) 

C * EXIT POINT 
a00 RETURN 
END 
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4.3. Reducing Package Size 


4.3.1. Removing Unused Routines 


j NOTE ! 

The savings resulting from the removal of routines will vary from system to system. If the user's link¬ 
load process does not load unused routines, savings in storage costs from the deletion of these routines 
may be negligible. 


Routines may be removed from the Terminal Control System if two conditions are met by ALL programs 
using TCS: 

1. None of the programs directly calls the routine to be removed. 

2. None of the programs accesses any code that calls the routine. 


The deletion process may extend to routines called only by previously deleted routines. The Subroutine 
Calling Reference Chart in Section 6 of this manual will help to determine which routines may be deleted. 

Before deleting any routine, however, check to be sure it is not needed by other Tektronix software and 
that no other user intends to use it. The removal of any routine should be documented for future 
reference. 


Routines Not Called Internally By The Terminal Control System 


A1IN 

DRWREL 

LOGTRN 

SEETRM 

A10UT 

DSHREL 

MOVER 

SEETRN 

A INST 

DWINDO 

MOVREL 

SEETW 

ANCHO 

ERASE 

PNTREL 

SETBUF 

ANMODE 

FINITT 

POINTR 

SETMRG 

AOUTST 

GENFLG 

POLTRN 

SETTAB 

BAKSP 

HDCOPY 

RESTAT 

SVSTAT 

BELL 

HOME 

RROTAT 

SWINDO 

CARTN 

INCPLT 

RSCALE 

TABHOR 

CSIZE 

IN ITT 

RSTTAB 

TABVER 

CZAXIS 

KCM 

SEEBUF 

TERM 

DASHR 

KIN 

SEEDW 

TINPUT 

DASHSR 

LINEF 

SEELOC 

TTBLSZ 

DCURSR 

LINTRN 

SEEMOD 

TWIN DO 

DRAWR 

LINHGT 

SEEMRG 

VCURSR 

DRAWSR 

LINWDT 

SEEREL 

VWINDO 
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4.3.2. A-Level Pruning 

A-level pruning is the removal of features through the deletion of the user-called routines supporting 
those features. Internally called routines must be replaced by dummy routines having the same name 
and arguments as the routines they replace. A dummy routine must contain an executable statement, 
a RETURN statement and an END statement (on some computer systems the executable statement may 
be omitted). See the Subroutine Calling Reference Chart in Section 6 of this manual for the arguments 
of each subroutine. 

A dummy function needs an assignment statement: [function name] = 0. 


Feature Eliminated 

Routines Eliminated 

4014/4015 Support 


Changing Character Size 

CHRSIZ* 

Enhanced Graphics Option 


Incremental Plotting 

INCPLT 


IPMOD 

Hardware Dashed Lines & 

CZAXIS 

Z-Axis Control 

CWSEND* 

Special Vector Types 


Incremental Plotting 

INCPLT 


IPMOD 

Software or Hardware Produced Point Plotting 

PNTABS 

Plotting 

PNTREL 


POINTA 


POINTR 


TKPNT 


PNTMOD* 

Dash Plotting 

DASHSA 


DASHSR 


TKDASH 


DSHABS 


DSHREL 


DSHMOD 


DASHA 


DASHR 

Segmented Vectors 

DRAWSA 


DRAWSR 


DASHSA 


.DASHSR 


*A dummy routine replacement is required. 
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Feature Eliminated 


Routines Eliminated 


Relative Vectors 

Relative Virtual Vectors 


Relative Screen Vectors 


User Alphanumeric Output 


DRAWR 

POINTR 

DASHR 

MOVER 

DASHSR 

DRAWSR 

REL2AB 

RSCALE 

RROTAT 

DRWREL 

DSHREL 

PNTREL 

MOVREL 


A10UT 

AOUTST 

ANCHO 

ANSTR 


User Input 

Crosshair DCURSR 

SCURSR 

VCURSR 

Keyboard A1IN 

AINST 

TINPUT 

TINSTR* 


Transformation Support 
Polar Plotting 


POLTRN 

PSCALL** 

PSCAL 


* Warning: TINSTR must be present for any input through the Terminal Control System. 

**A dummy routine replacement is required. 

4.3.3. B-Level Pruning 

B-level pruning is the removal of all code used by an unwanted feature. Entire routines which support 
that feature are eliminated; in other routines, statements which support that feature are removed or 
modified. 

If a feature is eliminated by B-level pruning, comparable changes need not be made at the A level. 
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B-level pruning may be used to eliminate the following features from the Terminal Control System: 

1. Polar Plotting 

2. Logarithmic Plotting 

3. Multiple Character Sizes 

4. Point Plotting 

5. Hardware Point Plotting 

6. Z-Axis Mode Changes AND Hardware Dashed Lines 

7. Z-Axis Mode Changes 

8. Hardware Dashed Lines 

9. Interline Character Effect Supression 

10. Software Dashed Lines* 

Code to be modified or removed is marked at the left margin. 

Each feature is described separately. If the same line is to be changed for several features, the changes 
should be made accumulatively. 



Eliminate only that code which is truly unnecessary for your operation. Document all changes for 
future reference. 


*lf you have the four hardware dash types of the Enhanced Graphics Module, you may wish to eliminate software 
dashes to save storage. 
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Feature 1. Polar Plotting 


Remove; 

POLTRN 

PSCAL 


Modify: 

DASHSA 

RESCAL 

REVCOT 


DRAWSA 

WINCOT 


DASHSA 





c * linear log polar user error 

60 TO IROIiKEY 

C * ERROR LINEAR LOG 
100 CALL OASHA(X,Y,L) 

XOLO«X 
YOLDsY 
RETURN 

C * POLAR _ 

?00 OXsX-XOLD 
OY*Y»YOLO 
Y8TEP«SIGN(5,0/TRFACY,DY) 

IF(ABS(DY*,75) ,LT, AB8(YSTEP)) GO TO 100 
FRAC«DX/DY 

N8E6«(DY/YSTFP)+,9999 

YOUTsYOLD 

300 IFCNSEG iLT, B) GO TO 100 
YOUT«YOUTtYSTEP 
XOUT«XOLO+(YOUT«YOLD)*FRAC 
CALL 0A8HA(X0UT,YCUT»L) 

N8E6«NSEG»1 

GO TO 300 _ 

C * USER SEGMENTATION 
«00 CONTINUE 
C CALL USDASH(X,Y,L) 

GO TO 100 
END 



Change 200 to 100 
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DRAWSA 


C * LINEAR LOG POLAR USER ERROR 

'60 TO C100r 100» 200* 400, 100),KEY 
C * ERROR LINEAR LOG 
100 CALL ORAWA(X,Y) 

XOLO*X 
YOLDsY 
RETURN 

C * POLAR _ 

DXsX-XOLD 
DY5Y»YOLO 

YSTEPsSIGN(5,0/TREACY,OY) 

1F(A08(OY*,75) ,LT, ABS(Y8TEP)) GO TO 100 
FRACaOX/OY 

NSFGb(DY/Y 8TEP)+,9999 
YOUTsYOLD 

IFCNSEG ,LT, 2) 60 TO 100 
YQUTsYOUT+YSTEP 
XOUTaXOLD+(YOIJT«YOLD)*FRAC 
CALL DRAWA(X0UT,Y0UT) 

NSE6aN8E6-l 

GO TO 300 __ 

C ♦ USER segmentation 
900 CONTINUE 
C CALL USORAW(X,Y) 

GO TO 103 
END 


RESCAL 

C * BRANCH TO PROPER SECTION AND RETURN 
C * LINEAR LOG POLAR USER ERROR 
60 TO (100,200,30 
C * BOTH AXES LINEAR 
100 TRPARlae, 

C * SEMI log or LOG LOG 
200 KEYLpTRPARI+1,001 

Change 300 to 100 


0,400,500),KEY 


Remove 


203 


300 


\ 

Change 200 to 100 


Remove 


C * POLAR SCALING 
IP CALL PSCAL 

_ GO TO 600 

C * USER FUNCTION 
400 CONTINUE 
C CALL URSCAL 

60 TO 600 
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WINCOT 


C * 

c * 

c 

10CI 


BRANCH TO PROPER SECTION 
LINEAR LOG POLAR USER ERROR 

GO TO(Si50,30C^,600,700» ie0)»KEY 
ERROR 
IX«X 
lYsY 

GO TO 800 


X 

Change 600 to 500 


Remove 


C * CONVERT LINEAR 
500 IXeIFIX(DX*TRFACX<-,5)4KMIN8X 
IY«IFIXCDY*TRFACY+,5)+KMINSY 
C * 60 TO EXIT 
GO TO 800 

c * POLAR transformation 

600 As(Y-TRPAR 6)*TRFACY 
Rs(X»TRPAR5)*TRFACX 
IX*R*C0S(A*DE2RAD)+TRPAR3 
IY8R*SIN(A*0E2RAD)4TRPARi» 

C * GO TO EXIT 

_ GO TO 600 

C * USER transformation IN USE 
700 CONTINUE 

C CALL USECOT(X,Y,IX,lY) 

C * EXIT POINT 
800 RETURN 
END 


REVCOT 


C * LINEAR 

60 TO(300, 
C * ERROR 
100 XsIX 
Y«IY 

GO TO 700 


LOG 

400, 


POLAR 
500, 


USER 

600, 


ERROR 
100 ), 


\ 


Change 500 to 300 


@ 
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REVCOT (cont) 


Remove 


C * POLAR _ 

500 0XaFU0AT(IX)»TRPAR3 
DY«FLOAT(IY)-TRPAP<» 

Y«ATAN2(DY,OX)*57,2957795131 
X«8QRT(0Y*0Y*DX*DX)/TRFACX*TRPAR5 
C * ADJUST ANGLE MOD 2 PI TO VALUE WITHIN WINDOW 
0CC«,FALSE, 

510 IF(Y ,GT, TRPARI) GO TO 530 
C * INCREMENT ANGLE 
YaY*360,0 
GO TO 510 

530 IPfY ,LE, TRPAR2) GO TO 550 
C * DECREMENT ANGLE 
YsY-360,0 
DECS,TRUE, 

GO TO 530 

550 IFCDEC ,AND, Y ,LT, TRPAR1)YsY+560,0 
IFCTMINVX ,6E, 0,)GO TO 560 
TRlA*AMOD(TRPARI*100,,360,) 

TR2AsAMOD(TRPAR2*180,,360,) 

IF(Y,GT,AMAX1(TR1A»TR2A),0R,Y,LT,AMIN1(TR1A,TR2A))G0 TO 560 
YaAMODCY+180,,360,) 

Xa-X 

560 Y8Y/TRFACY+TRPAR6 

_ GO TO 700 

C * USER CONVERSION 
600 CONTINUE 
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Feature 2. Logarithmic Transformations 


Remove: 

Modify: 

RESCAL 


Remove 


Remove 


LOGTRN 

RESCAL 

WINCOT 

REVCOT 


C * BRANCH TO PROPER SECTION AND RETURN 
C * LINEAR LOG POLAR USER ERROR 

60 TO (108)^200,3(l0^40PrS0B}f KEY 
C * BOTH AXES LINEAR^>^ 

100 TRPARI»0, 

C * SEMI LOG OR LOG LOG Change 200 to 100 

200 KEYL»TRPARl+l,001 
C * X AXIS — LINEAR OR LOG 

_ CO TO (210r2l5f210»21B),KEYL 

c * linear 

210 TRFACXsFLOAT (KHAXSX*KMlNSX)/(TMAXVX»TMINVX) 

GO TO 250 

C * PREVENT INVALID TRANSFORMATION 

215 IF(TMINVX ,6T, 0,0 ,AND, THAXVX ,6T, 0,0)60 TO 220 
K6NFL0*l 

TRPAR1»TRPARI«1,0 
60 TO 210 

C * SEMI log X AXIS 
220 TRPAR2sAL06(TMINVX) 

TRFACXaFL0ATCKMAXSX»KHlNSX)/(AL0G(TMAXVX)<iTRPAK2) 

C * Y AXIS LINEAR OR LOG 

250 GO TO (260«260»270i270),KEYL 

C * LINEAR 

260 TRFACYaFL0AT(KMAX8Y»KMlNSY)/(TMAXVY*TMlNVY) 

GO TO 600 
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WINCOT 


Remove 


C 

C 


C 

100 


C * 


BRANCH TO PROPER SECTION 
LINEAR LOG POLAR USER ERROR 

CO TO(500,300,600,700f100)»KEY 
ERROR 
IX«X 

1V»Y Change 300 to 500 

60 TO 600 
LOG TRANSFORM 


> 0 # 

\ 


300 KEYLaTRPARlf,001 

IFCKEYL iEQ. 2) GO TO 400 
C * SETUP X LOG TRANSFORM 
DXsAL0G(X)*TRPAR2 
«00 IFCKEYL .EQ, 1) GO TO 500 
C * SETUP Y LOG TRANSFORM 
_ 0Y«AL0G(Y)*iTRPAR3 


C * CONVERT LINEAR 
500 IX*IFIX(DX*TRFACXf,5)^KMlNSX 
lYsIFlX(0Y*TRFACY+,5)+KMIN3Y 


REVCOT 


C * LINEAR LOG POLAR USER ERROR 

GO TO(300r 400# 500# 600# 100 )#KEY 
C * ERROR 
100 X«IX 
V*IY 

GO TO 700 Change 400 to 300 

C * LINEAR 
300 X«DX+TMINVX 
YbOY^TmINVY 
GO TO 700 
C * LOG SCALES 
400 KEYLsTRPARl 
XePX+TMINVX 
YbOY+TMINVY 

IFCKEYL ,NE, 2)X«E**(0X4-TRPAR2) 
IFCKEYL ,NE. 1)Y«M*CDY + TRPAR3) 

_ GO TO 700 

C * POLAR 

500 0X«FL0ATCIX)*TRPAR3 



@ 
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Feature 3. Multiple Character Sizes 


Remove: CHRSIZ 

Modify: RESET 

RESTAT 

RESET 


Remove 


C * SET 40U enhanced fo« solid lines 

IFCKTERM ,GE, 3)CALL CWSEND 
C * PLACE IN LARGE CHARACTER SIZ E 

IF(KTERH ,GE, 2)CALL CHRSIZ(l) 
t * PLACE THE terminal IN A/N MODE 
CALL ALFMOD 
RETURN 
ENn 


REST AT 


Remove 


100 R0(l)sRARRAY(I) 

DO 101 Isi,ai 

101 IS(I)aRARRAY(ni9) 

C * RESTORE CHARACTER SIZE _ 

IF(KTERM ,GT, nCALL CWR3IZ(KSIZEF) 
C * RESTORE ZAXIS AND DASH LINE 

IFCKTERM ,GT, 2)CALL CwSEND 
C * CALL TO RECOVER POSITION AND MODE 
call RECOVR 

RETURN 

end 


@ 
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Feature 4. Point Plotting 



Remove: PNTABS 

PNTREL 

PNTMOD 

POINTA 

POINTR 

TKPNT 

Modify: RECOVR 

BUFFPK 



RECOVR 


Remove 


C * PLACE IN THE PROPER MODE 
IPCMODE ,LT, l)M0DE«l 
IF(MO(5E ,GT,5)H00E»5 
GO TO (100,200,120,100,200),NODE 
100 CALL ALFMOD 

_ CO TO 200 

120 CALL PNTMOD 

C * RESTORE THE GRAPHIC LEVEL FLAG 

200 KCRAFLbIFLAG Change 120 to 200 

RETURN 

END 


BUFFPK 


C * 

C * 

21 

C * 

22 

C • 


C * 


MODE IS A/N,VEC,PNT,INC,r)SH 

GO TO (21, 22, 23, 24, 22)tKEY 
ENTER A/N MOOE 
TOATA(LENOUT)=31 
GO TO 50 Change 23 to 22 

IF READY FOR A MOVE, THEN REMOVE FIXUP CHARS 
IFCKMOVEF .EQ. 1) LEN0UT=2 
LEM0UT=LEN0UT-1 

CHECK IF DASHED LINE OR Z AXIS MUST 3E RESTORED 
IF(KLINE .EQ. C .AND. KZAXIS .EQ. 0) GO TO 50 
I0ATA(LEN0UT*1)=27 
LENOUT=LENOUT+2 

I0ATA(LFN0UT> =q6fKZAXIS»84-KLlNE 
GO TO 50 

ENTER POINT MODE 


Remove 


23 IF(KTERM .LT. 3)GO TO 22 

IDATAdENOUT) =28 
LENOUT=LENOUT+l 

_ GO TO 22 

C * ENTER INCREMENTAL PLOT MOOE 

24 lOATAILENOUT)=30 
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Feature 5. Hardware Point Plotting 

Modify: TKPNT PNTMOD BUFFPK 

TKPNT 


Remove 


C * THIS SECTION IS FOR 4014 ENHANCED 
IFCKTERW .GE, 3)00 TO iT 
C **A************************«**4»***e**AA*****4 
C * PUT OUT A 6S FOR SIMULATED POINT PLOT MODE 
CALL T0UTPT(29) 

KM0VEf«l 


PNTMOD 


Remove 


C * FOR HARDWARE POINT PLOT OUTPUT AN (FS) 
IF(KTERM ,CE, 3)CALL T0UTPt(26) 

-J^TfUl^N- - 

END 


BUFFPK 

C • 

C • 

21 

C * 
22 

C • 


C * 


MODE IS fl/N,VEC,PNT,INC,OSH 

GO TO <21» 22, ?3, 24, 22),KEY 
ENTER A/N MOOE 
lOATAtLENOUT) 

GO TO 50 

IF READY FOR A MOVE, THEN REMOVE FIXUP CHARS 
IF(KMOVEF .EQ. 1) LENOUT=2 


Z4, 


■hange 23 to 22 


LEMOUT=LENOUT-l 

CHECK IF CASHED LINE OR Z AXIS MUST 9E RESTORED 
IF(KLINE .EQ. C .AND. KZAXIS .EQ. 0) GO TO 50 
I0ATAfLEN0UTAl)=27 
LEN0UT=LEN0UT+2 

lOATAtLENOUT)=g6+KZAXIS*8fKLlNE 
GO TO 50 

ENTER POINT MODE 


Remove 


-'-i- 

23 IFtKTERM .LT. 3)GO TO 22 

IDATA(LENOUT)=28 
LEN0UT=LEN0UT>1 

_ GO TO 22 _ 

C * ENTER INCREMENTAL PLOT MOOE 

24 IDATAILENOUT)=30 
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Feature 6. Z-Axis Mode Changes AND Hardware Dashed Lines 


Remove: 

CWSEND 

CZAXIS 



Modify: 

RESET 

RESTAT 

CARTN* 

LINEF* 

DRAWA** 

DRAWABS** 

TKDASH 


RESET 


C * SET qeia ENHANCED FOR SOLID LI NES 

Remove [_ 1F(KTERM .GE. 3)CALL CWSEND 

C * PLACE «0ia IN LARGE CHARACTER SIZE 
IPCKTERM ,CE, 2)CALL CHRSIZCl) 

C * PLACE THE TERMINAL IN A/N MODE 
CALL ALFMOO 
RETURN 
END 


RESTAT 


Remove 


C * RESTORE ZAXI8 AND DASH LINE 

IFtKTERM .GT. 2)CALL CWSEND 
C * CALL TO RECOVER POSITION AND MODE 
CALL RFCOVR 
RETURN 


END 


'Described in Feature 7 
"Described in Feature 8 


@ 
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Feature 7. Z-Axis Mode Changes 
Remove: CZAXIS* 

Modify: CARTN LINEF CWSEND* 

CARTN 


Remove 


C * RESTORE ZAXIS STATE ON aaia 

IFCKtERM ,GE, 2)CAIL CiwSe Nd 
30 RETURN 
END 


LINEF 


Remove 


C * RESTORE ZAXI8 MQPL IF APPROPRI ATE 
200 IF(KTERM ,GE, 2)CALL CWSEND 
RETURN 
END 


CWSEND* 

DIMENSION IC00E(2) 

DATA lCODECn/27/ _ 

Delete 1 ICODE (2) «9 6»KZAXIS*8»KLINE 

KZAXIS*8 CALL TfiUTST(2f tCOoE) 

RETURN 

END 


""Not required if Feature 6 has been eliminated. 
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Feature 8. Hardware Dashed Lines 


Modify: DRAWA DRWABS TKDASH CWSEND* 

DRAWA 


Remove 


C * SET TERMINAL TO DRA^ SOLID LINES IF NEEDED 
C * THIS SECTION IS NEEDED FOR ENHANCED **** 

IEcklINE ,EQ, 0)60 TO S 
KL1NES0 
CALL CWSEND 
5 CONTINUE 

C A********************************************** 


DRWABS 


Remove 


C * THIS SECTION IS FOR aeia E NHANCED *«»*** 
IF(KLINE .EO, 0)GO TO 5 
KLINEai0 
CALL CWSEND 
5 CONTINUE 

C ***************************************** 


TKDASH 


Remove 


Remove 


C * THIS SECTION IS FOR <40l<i ENHANCED *************** 
IF(KDASHT ,CT, ^l)GO TO 101 
IFCKTERM ,GE, 3)G0 TO 103 
_ IFCKDASHT .EQ, 0)GO TO 330 

C *************************************************** 

C * HARDWARE DASH SIMULATION FOR'TYPE I ♦ 2 TERMINALS 
KDASHT8lSIMHD(K0A5HT) 

C * THIS SECTION IS ALSO FOR a0H i ENHANCED ********** 
101 IFCKLINE ,EQ, 0)GO TO 104 
KLINE80 

CALL CWSEND 
GO TO 104 

C * SET AND TRANSMIT HARDWARE DASH CODE 

103 IF(KLINE ,E0, KDASHTIGO to 330 
KLINEaKDASHT 

CALL CWSEND 
GO TO 330 

104 CONTINUE 

C *************************************************** 


CWSEND* 


Delete +KLINE 


DATA lC0DE(n/27/ _ 

1C0D£(2)«96*KZAXIS*8*KLINE 
CALL T0UTST(2,IC0DE) 

RETURN 

END 


*Not required if Feature 6 has been eliminated. 
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Feature 9. Interline Character Effect Suppression 


Remove: SETBUF 

Modify: INITT BUFFPK 


IN ITT 


C * SET THE OUTPUT BUFFER FORMAT 
KUNIT«l« 


KINUFT«0 
K0Tl.FT«l 
CAIU RESET 
CALL NEWPAC 
RETURN 
ENt) 


Change 1 to 3 or 4 


BUFFPK 


Remove 


10 IFCNOliATA ,EQ, DGO TO 50 

NODATAal 

C * DETERMINE THE FORMAT THE USER HANTS BUFFER PUMPED !N 

GO TO (20,T0»'*0,45) ,KUNIT 

C * OUTPUT BUFFER FORMAT IS ( GS) , PL TO HPS, DA TA , {'JS ) 

2a LEUOUT=LENaUTfl 

c ♦ append (us> to emd dp buffer 

lOATA(LENOUT) =?1 

call AOEOUT(LFNnUT,IDATA) 

C * RESTORE THE: BEAM POSITION AT FIRST OF thF NEXT BUFFER 
ISUR=1 

IF(KT£PM ,GE. 3) ISU3=2 

CALL PLTCHR(<0EAMX,<BEAMY,IDATA(ISUB)) 

TnATA(2)=I0ATA(ISUB) 

LEN0UT=5+ISU3 

IDATA{1)=20 

C * AND NOW •!’HE MODE OEFORE THE OUTPUT WAS ASKED FOR 
DO 19 I=2,KPAOP 
IDATA(LENOUT)=22 
IP L'"MOUT = L‘^NOUT+l 

KF>' = KKN0DE + 1 
IF(KFY .LT. 1)KEY=1 
TF(KEY .GT. 5)KEY = 1 
C * MODE IS A/N,yEC,PNT,INCfOSH 

GO TO (21, 22, 23, 24, 22),KEY 
C * ENTER A/N MOUF 

21 TOATA(LENOUT)=31 
GO TO BO 

C » TF READY FOR A MOVE, THEN REMOVE f^IXUP CHAPS 

22 IF(KM0VEF .EQ. 1) LENOUT=2 

LFMOUT = LENOIJT-l 

C * CHECK IF DASHED LINE OR 2 AXIS MUST BE RESTORED 
IP(KLINE .EG. C .and. K7AXIS .EQ. Q) GO TO 50 
I0ATA{LFN0UT+1)=27 
LE ')0UT = LFN0UT + 2 

inATA(LFNCUT)=96+KZAXIS*8+<LTNE 
GO TO 5(3 

C ENTER POINT MODE 
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21 IF(KTERM .LT. !)G0 TO 22 

TOATA(LENOUT) 

LENOUT=LFNOUT+l 
GO TO 22 

C • ENTER INCREM'^NTAL PLOT 

?4 TOATA (LENOIJT) =30 

C • RAISE OR LOWER PEN AS NEEDED 

C » THE FOLLOWING 3 LINES ARE NO^ NEEDpD ON SO'^E PLOTTERS ***** 
LENOUT = LtNOUT«-l 
TDATA(LENOUT) =80 

IF(KMOVEF .EQ. 1)ID AT A(LFNOUT)=3? 


Remove 


GO TO 5C 

C * OUTPUT BUFFER FORNAT IS (SYN),0 AT A, (ESC) 

30 IF(NCHAR .LE. 0 .AND. KGNMOO .NE. DGO TO 20 
LENOUT=LEMOUT+l 

0 * APPEND (ESC) TO -NO OF BUFpeR 
TOATA(LFNO'JT) =27 
CALL AOECUT(LENOUT»IDATA) 

TDATA<1)=22 

LENOUT=l 


C * OUTPUT BUFFER FOR' 
40 CALL AnEOUT(LENC 
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Feature 10. Software Dashed Lines* 
Modify: TKDASH 

Remove a// the following lines: 


SUBROIITIME TKOASHCIX, lY) 

COMMON /TKTRNX/ TMIMVX,TMINVY,TMAXVX,TMAXVY/TREALX,TREALYr 

1 TIMAGX,TIMAGYrTRC0SF,TR8INF,TR3CAl.,TRFACXf TRFACY, 

2 TRPARl,TRPAR2,TRPAR3,TPPARg,TRPARS,TRPAR6,KMOFLG(0),KPA02# 
i KBAU0R,KtRR0R,KGRAFL»KH0HtYrKKM0DE,KH0RSZ,KVER8Z»KTBUSZ# 

a KSIZEF,KLMRGN,KRMPGN,KFACTR,KTERMfKLINE»KZAXIS»K8EAMX,KBEAMYf 

5 KM0VEF,KPCHAR(5),K0ASHTfKMINSX,KMINSY,KMAX3X,KMAXSYrKEYC0N, 

6 kinlft,kotlft,kunit 

IFCKDASHT ,LT, 0)GO TO 32M 


IF(KDASHT ,GT, «)G0 TO l\dl 
IF(KTERM ,GE, 3)G0 TO 103 


C * 
101 


C * 
103 


THIS SECTION IS ALSO FOR a014 
IFCKLINE ,EQ, 0)60 TO 104-^ 

klime*0 

CALL CWSENO 
GO TO 10a 

SET AND TRANSMIT HARDWARE 
IFCKLINE ,E0, KDASHDGO 
KLINEsKDASHT 
CALL CWSEND 
60 TO 330 


enhanced ************ 


Change 104 to 330 


.Change 104 to 330 

DASH CODE 
TO 330 


320 call T0UTPT(29) 
KMOVEFsl 

330 CALL XYCNVTC IXr lY) 


3a0 RETURN 
END 


*lf you have the four hardware dash types of the Enhanced Graphics Module, you may wish to eliminate software 
dashes to save storage. 
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SECTION 5 STATUS VARIABLES 


5.1. Description of Variables 

The Terminal Status Area is the common area named /TKTRNX/. It allows routines in the Terminal 
Control System a quick reference to the current condition of both the software and the Terminal. This 
reduces the number of control characters and routine linkages necessary to place the Terminal in the 
user requested condition. The following Status Variables comprise the Terminal Status Area: 

KACHAR The number of characters available to the user in the input buffer. 

KBAUDR The number of characters transmitted per second. 

KBEAMX The beam X coordinate. 

KBEAMY The beam Y coordinate. 

KDASHT User requested dashed line type: 

1 through 4 hardware dash or software-simulated hardware dash 
10 or greater a software dash 

KEYCON The transformation type: 

1 linear 

2 logarithmic 

3 polar 

4 user-defined 

KFACTR The addressing factor: 

1 4096 addressable points 
4 1024 addressable points 
KGNFLG The general condition flag: 


Routine 

Meaning of KGNFLG Value 


0 

Action Completed 

1 

Action Cannot Be Completed 

SETTAB 

all OK 

no room in tab table 

PCLIPT 

point inside virtual window 
limits 

point outside virtual window limits 

CLIPT 

line partly inside window 
limits 

line entirely outside window limits 

RESCAL 

valid transformation 

requested transformation has a 
negative window limit 


KGNMOD The graphic crosshair cursor flag: 

0 not set 
1 set 

KG RAF L The graphic level flag: 

0 screen level graphics 
1 virtual graphics 
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KHOMEY 


KHORSZ 

KINLFT 

KKMODE 


KLEVEL 

KLINE 


KLMRGN 

KMAXSX 

KMAXSY 

KMINSY 

KMINSY 

KMOFLG 

( 1 , 2 ) 

KMOVEF 


KOBLEN 

KOTLFT 

KPAD2 

KPADV 

KPCHAR 

KRMRGN 

KSIZEF 


The home Y value: 

767 in 1024 point system 
3068 in 4096 point system 

The character width in 4096-space raster units. 

The number of characters left in the TCS input buffer. 

The Terminal mode for both hardware and software: 

0 alphanumeric mode 

1 solid vector mode 

2 point plot mode 

3 incremental plot mode 

4 dashed vector mode 

Not used. 

The hardware dashed line type: 

0 solid line 

1 dotted line 

2 dash-dot line 

3 short-dashed line 

4 long-dashed line 

The left margin for alphanumeric operations. 

The screen window maximum X value. 

The screen window maximum Y value. 

The screen window minimum X value. 

The screen window minimum Y value. 

Not used 

The move flag: 

0 bright vector next 
1 [ready for] dark vector next 

The output buffer length. 

The number of available spaces left in the TCS output buffer. 

The minimum number of pad characters needed to allow enough time for the Terminal 
to perform mode changes or draw vectors. 

The number of pad characters needed to allow for next vector. 

The last set of plot characters; used in drawing a vector. 

The right margin for alphanumeric operations. 

The character size in effect: 


Value 

Characters/Line 

Number of Lines 

1 

74 

35 

2 

81 

38 

3 

121 

58 

4 

133 

64 
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KTBLSZ 

KTERM 


KTRAIL 

KUNIT 

KVERSZ 

KZAXIS 


TIMAGX -X 
TIMAGY ^ 

TMAXVX >1 
TMAXVY I 
TMINVX I 
TMINVY y 
TRCOSF 
TREALX 'X 
TREALY J 
TRFACX > 
TRFACY J 
TRSCAL 
TRSINF 

TRPARI 


TRPAR2 

TRPAR3 

TRPARI 

TRPAR2 

TRPAR3 

TRPAR4 

TRPAR5 

TRPAR6 

4010A01 System 


The tab table size. 

The type of Terminal in use: 

1 4006-1 Releases 2.0 through 3.3 require modification to BAKSP4010, 4012, 4013 

2 4014, 4015, 4014EGM or 4015EGM 

3 4014 EGM or 4015EGM only 

The number of system character positions needed at the end of output buffer 
for interline characters. 

The output buffer format (see SETBUF, User's Manual, Section 7.11.1.). 

The height of a character in 4096-space raster units. 

The Z-Axis mode type: 

0 normal 

1 defocused 

2 write-through 

The position of the imaginary beam anywhere in virtual space (may be outside the 
virtual window and screen limits). 


The virtual window limits; used for clipping routines. 

The cosine for the relative virtual vector rotation. 

The position of the real beam in virtual coordinates (must be inside the virtual 
window). 

The scale factors used in converting virtual to screen coordinates. 

The scale factor used in converting relative virtual to absolute virtual coordinates. 
The sine for relative virtual vector rotation. 

Logarithmic Transformation 

The axis type in effect: 


Value 

X Axis 

Y Axis 

0 

linear 

linear 

1 

log 

linear 

2 

linear 

log 

3 

log 

log 


The log of minimum virtual X. 

The log of minimum virtual Y. 

Polar Transformation 

The beginning screen angle. 

The ending screen angle. 

The screen X coordinate of the virtual origin. 

The screen Y coordinate of the virtual origin. 

The radius suppression sum; to be subtracted from the virtual radius (X coordinate) 
before transformation. 

The virtual screen angle offset. 

@ 
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5.2. Status Variable Setting and Reference Charts 


5.2.1. Variables 

Status 

Variable 

KACHAR 
KBAUDR ~ 


KBEAMX 


KBEAMY 


Initial Setting 

(INITT) Set By_Referenced By 


SETBUF ANSTR 

_ TQUTST 


INITT 

INITT 

lOWAIT 

SEETRM 

ANSTR 

ANCHO 

ANCHO 

ANSTR 

BAKSP 

BAKSP 

CARTN 

BUFFPK 

INCPLT 

DRAWA 

NEWPAG 

DRWABS 

RESET 

DRWREL 

XYCNVT 

DSHMOD 


DSHREL 


INCPLT 


LINEF 


LVLCHT 


MOVREL 


PLTCHR 


PNTREL 


SEELOC 


TABHOR 


TABVER 


TKDASH 


RECOVR 


ALFMOD 

ALFMOD 

INCPLT 

BUFFPK 

LINEF 

CARTN 

NEWPAG 

DRAWA 

RESET 

DRWABS 

XYCNVT 

DRWREL 

DSHMOD 

DSHREL 

INCPLT 

LINEF 

LVLCHT 

MOVREL 

BAKSP 


“Depends on the Baud rate entered. 


5-4 


@ 


4010A01 System 





Status Initial Setting 

Variable _ (INITT) _ Set By _ Referenced By 

PLTCHR 

PNTREL 

RECOVR 

SEELOC 

TABHOR 

TABVER 

TKDASH 


KDASHT 


DSHMOD 

TKDASH 

TKDASH 

KEYCON 

1 

LINTRN 

DRAWS A 



LOGTRN 

DASHSA 



POLTRN 

RESCAL 



RESET 

REVCOT 




SEETRN 




WINCOT 

KFACTR 

4 

INITT 

ANCHO 



TERM 

ANSTR 


BAKSP 

CSIZE 

KCM 

KIN 

LINEF 

LINHGT 

LINWDT 

PLTCHR 

RESET 

SCURSR 

SEETRM 


KGNFLG 

0 

CLIPT 

DASHA 



PCLIPT 

DRAWA 



RESCAL 

GENFLG 



SETTAB 

MOVEA 

POINTA 

V2ST 

KGNMOD 

0 

INITT 

SCURSR 

BUFFPK 

KGRAFL 

0 

ALFMOD 

LVLCHT 



DRWABS 

DSHABS 

IPMOD 

RECOVR 



LVLCHT 

MOVABS 
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Status 

Initial Setting 



Variable 

(INITT) 

Set By 

Referenced By 

PNTABS 

PSCAL 

RECOVR 

RESCAL 

KHOMEY 

767 

RESET 

ALFMOD 

ANSTR 

HOME 

LINEF 

NEWPAG 

RESET 

KHORSZ 

56 

CHRSIZ 

ANCHO 



RESET 

ANSTR 

BAKSP 

CSIZE 

LINWDT 

KINLFT 

0 

INITT 

SCURSR 

TINSTR 

LEFTIO 

KKMODE 

0 

ALFMOD 

ANCHO 



DSHMOD 

ANSTR 



IPMOD 

BAKSP 



PNTMOD 

BUFFPK 



V2ST 

CARTN 



VECMOD 

DRAWA 

DRWABS 

DSHMOD 

INCPLT 

LINEF 

NEWPAG 

POINTA 

PNTABS 

RECOVR 

SEEMOD 

VECMOD 

V2ST 

KLINE 

0 

DRAWA 

CWSEND 



DRWABS 

DRAWA 



RESET 

DRWABS 



TKDASH 

SEEMOD 


TKDASH 
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Status 

Initial Setting 



Variable 

(INITT) 

Set By 

Referenced By 

KLMRGN 

0 

RESET 

ANSTR 



SETMRG 

CARTN 

HOME 

NEWPAG 

RESET 

SEEMRG 

KMAXSX 

1023 ^ 

RESET 

PSCAL 

KMAXSY 

780 J 

SWINDO 

RESCAL 



TWINDO 

SEETW 

KMINSX 


RESET 

PSCAL 

KMINSY 

0 J 

SWINDO 

RESCAL 



TWINDO 

REVCOT 

SEETW 

WINCOT 

KMOFLG 



SUSTAT 

RESTAT 

KMOVEF 

0 

BELL 

BUFFPK 



DSHMOD 

DRAWA 



INCPLT 

DRWABS 



RECOVR 

TKDASH 

TKPNT 

VECMOD 

XYCNVT 

XYCNVT 

KOBLEN 

72 

INITT 

SETBUF 

KOTLFT 

* 

BUFFPK 

BUFFPK 



INITT 

LEFTIO 

KPAD2 

* 

INITT 

BUFFPK 

PLTCHR 

SETBUF 

KPADV 


BUFFPK 

INITT 

PLTCHR 

BUFFPK 

KPCHAR 

55,0,127,32,64 

DSHMOD 

PNTMOD 

VECMOD 

XYCNVT 

XYCNVT 

KRMRGN 

1022 

RESET 

ANCHO 



SETMRG 

ANSTR 

SEEMRG 

TABHOR 


"^Depends on the Baud rate entered. 
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Status 

Initial Setting 



Variable 

(INITT) 

Set By 

Referenced By 

KSIZEF 

1 

RESET 

SEETRM 



CHRISZ 

RESTAT 

KTBLSZ 

10 

RESET 

RSTTAB 



TTBLSZ 

SETTAB 

TABHOR 

TABVER 

KTERM 

1 

INITT 

BUFFPK 



TERM 

CARTN 

CHRSIZ 

CZAXIS 

KCM 

KIN 

LINEF 

PNTMOD 

RESET 

SEETRM 

TKDASH 

TKPNT 

XYCNVT 

RECOVR 

KTRAIL** 

1 

SETBUF 

BUFFPK 

KUNIT 

1 

INITT 

BUFFPK 



SETBUF 

SEEBUF 

KVERSZ 

88 

CHRISZ 

ANSTR 



RESET 

CSIZE 

LINEF 

LINHGT 

KZAXIS 

0 

CZAXIS 

BUFFPK 



RESET 

CWSEND 

CZAXIS 

SEEMOD 

TIMAGX^i 


LVLCHT 

DASHSA 

TIMAGY^' 


V2ST 

DRAWSA 

REL2AB 

V2ST 

TMAXVX 

1023 ^ 

DWINDO 

CLIPT 

TMAXVY 

780 / 

RESET 

PCLIPT 



VWINDO 

PSCAL 

RESCAL 

SEEDW 

TIMVX 


DWINDO 

CLIPT 

TIMNVY 

0 J 

RESET 

PCLIPT 

**Not used in the TSO version of TCS. 




5-8 


4010A01 System 









Status 

Variable 


Initial Setting 
(INITT) 


Set By 


Referenced By 


VWINDO PSCAL 

RESCAL 

REVCOT 

RESTAT 

SEEDW 

SVSTAT 

WINCOT 


TRCOSF 

1 

RESET 

REL2AB 



RROTAT 

SEEREL 

TREALX 


V2ST 

LVLCHT 

TREALY 



V2ST 

TRFACX 


PSCAL 

DASHSA(TRFACY only) 

TRFACY 


RESCAL 

DRAWSAITRFACY only) 



RESET 

PSCAL 

REVCOT 

SEETRN 

WINCOT 

TRSCAL 

1 

RESET 

REL2AB 



RSCALE 

SEEREL 

TRSINF 

0 

RESET 

REL2AB 



RROTAT 

SEEREL 

TRPAR1 


LOGTRN 

PSCAL 



POLTRN 

RESCAL 



RESCAL 

REVCOT 

WINCOT 

TRPAR2 


POLTRN 

PSCAL 



RESCAL 

RESCAL 

REVCOT 

WINCOT 

TRPAR3 


PSCAL 

RESCAL 



RESCAL 

REVCOT 

WINCOT 

TRPAR4 


PSCAL 

REVCOT 

WINCOT 

TRPAR5 


POLTRN 

REVCOT 

WINCOT 

TRPAR6 


PSCAL 

REVCOT 

WINCOT 

ALL COMMON VARIABLES 


SVSTAT 

RESTAT 


@ 
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5.2.2 Routines Which Set and Reference Variables 


Routine 

Sets 

References 

ALFMOD 

KBEAMY 

KGRFL 

KKMODE 

KBEAMY 

KHOMEY 

ANCHO 

KBEAMX 

KKMODE 

KBEAMX 

KHORSZ 

KFACTR 

KRMRGN 

ANSTR 

KBEAMX 

KBEAMY 

KACHAR* 

KKMODE 

KBEAMX 

KBEAMY 

KFACTR 

KLMRGN 

KRMRGN 

KHORSZ 

KVERSZ 

BAKSP 

KBEAMX 

KBEAMX 

KHORSZ 

KFACTR 

KKMODE 

KTERM 

KBEAMY 

BELL 

KMOVEF 


BUFFPK** 

KOTLFT 

KPADV 

KOTLFT 

KUNIT 


KBEAMX 

KBEAMY 

KKMODE 

KMOVEF 

KTERM 

KGNMOD 

KLINE 

KPAD2 

KPADV 

KTRAIL 

KZAXIS 


*Not used in the TSO version of TCS. 

**Not present in PDP-11 version of TCS. 



Routine 

Sets 

References 

CARTN 

KBEAMX 

KLMRGN 

KBEAMY 

KKMODE 

KTERM 

CHRSIZ 

KHORSZ 

KSIZEF 

KVERSZ 

KTERM 

CLIPT 

KGNFLG 

TMAXVX 

TMAXVY 

TMINVX 

TMINVY 

CSIZE 


KHORSZ 

KVERSZ 

KFACTR 

CWSEND 


KZAXIS 

KLINE 

CZAXIS 

KZAXIS 

KTERM 

DASHA 


KGNFLG 

DASHSA 


TIMAGX 

TIMAGY 

KEYCON 

TRFACY 

DR AW A 

KLINE 

KLINE 

KGNFLG 

KKMODE 

KMOVEF 

KBEAMX 

KBEAMY 

DRAWSA 


KEYCON 

TIMAGX 

TIMAGY 

TRFACY 

DRWABS 

KLINE 

KLINE 


KGRAFL 

KKMODE 

KMOVEF 

KBEAMX 

KBEAMY 

DRWREL 


KBEAMX 

KBEAMY 

DSHABS 

KGRAFL 
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Routine 

Sets 

References 

DSHMOD 

KKMODE 

KKMODE 


KMOVEF 

KBEAMX 


KDASHT 

KPCHAR 

KBEAMY 

DSHREL 


KBEAMX 

KBEAMY 

DWINDO 

TMAXVX 

TMAXVY 

TMINVX 

TMINVY 


GENFLG 


KGNFLG 

HOME 


KHOMEY 

KLMRGN 

INCPLT 

KMOVEF 

KKMODE 


KBEAMX 

KBEAMX 


KBEAMY 

KBEAMY 

INITT 

KBAUDR 

KGNMOD 

KOBLEN* 

KPAD2 

KPADV 

KTERM 

KFACTR 

KINLFT 

KOTLFT 

KBAUDR 

lOWAIT 


KBAUDR 

IPMOD 

KKMODE 

KGRAFL 


KCM 


KFACTR 

KTERM 

KIN 


KFACTR 

KTERM 

LEFTIO 


KINLFT 

KOTLFT 

LINEF 

KBEAMY 

KKMODE 

KBEAMY 

KVERSZ 

KFACTR 

KHOMEY 

KBEAMX 

KTERM 

Not used in the TSO version of TCS. 
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Routine 

Sets 

References 

LINHGT 


KFACTR 

KVERSZ 

LINTRN 

KEYCON 


LINWDT 


KFACTR 

KHORSZ 

LOGTRN 

KEYCON 

TRPAR1 


LVLCHT 

TIMAGX 

KGRAFL 


TIMAGY 

KBEAMX 


KGRAFL 

KBEAMY 

TREALX 

TREALY 

MOVABS 

KGRAFL 


MOVEA 


KGNFLG 

MOVREL 


KBEAMX 

KBEAMY 

NEWPAG 

KBEAMX 

KKMODE 


KBEAMY 

KLMRGN 

KHOMEY 

PCLIPT 

KGNFLG 

TMAXVX 

TMAXVY 

TMINVX 

TMINVY 

PITCHR 

KPADV 

KBAUDR 

KBEAMX 

KBEAMY 

KFACTR 

KPAD2 

KTERM 

PNTABS 

KGRAFL 

KKMODE 

PNTMOD 

KKMODE 

KPCHAR 

KTERM 

PNTREL 


KBEAMX 

KBEAMY 

POINTA 


KGNFLG 

KKMODE 

POLTRN 

KEYCON 

TRPAR1 

TRPAR2 

TRPAR5 
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Routine 

Sets 

References 

PSCAL 

KGRAFL 

TMAXVX 


KTRFACX 

TMAXVY 


KTRFACY 

TMINVX 


TRPAR3 

TMINVY 


TRPAR4 

TRFACX 


TRPAR6 

TRFACY 

TRPAR1 

TRPAR2 

KMINSX 

KMINSY 

KMAXSX 

KMAXSY 

RECOVR 

KMOVEF 

KGRAFL 


KGRAFL 

KKMODE 

KBEAMS 

KBEAMY 

KTERM 

REL2AB 


TRCOSF 

TRSINF 

TRSCAL 

TIMAGX 

TIMAGY 

RESCAL 

KGRAFL 

KEYCON 


KGNFLG 

KMAXSX 


TRPAR1 

KMAXSY 


TRFACX 

KMINSX 


TRFACY 

KMINSY 


TRPAR2 

TMINVX 


TRPAR3 

TMINVY 

TMAXVX 

TMAXVY 

TRPAR1 

TRPAR2 

TRPAR3 

RESET 

KEYCON 

KFACTR 


TRFACX 

KHOMEY 


TRFACY 

KLMRGN 


KBEAMX 

KTERM 


KBEAMY 

KMAXSX 


KHOMEY 

KMAXSY 


KMINSX 

KMAXSX 

KMINSY 

KMAXSY 

KHORSZ 
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Routine 


References 


Sets 

KLINE 

KZAXIS 

KLMRGN 

KRMRGN 

KSIZEF 

KTBLSZ 

KVERSZ 

TMINVX 

TMINVY 

TMAXVX 

TMAXVY 

TRCOSF 

TRSINF 

TRSCAL 


RE ST AT _ ALL COMMON VARIABLES 

REVCOT KMINSX 

KMINSY 

TRFACX 

TRFACY 

KEYCON 

TMINVX 

TMINVY 

TRPAR1 

TRPAR2 

TRPAR3 

TRPAR4 

TRPAR5 

TRPAR6 


RROTAT 

TRSINF 

TRCOSF 


RSCALE 

TRSCAL 


RSTTAB 

KTBLSZ 


SCURSR 

KGNMOD 

KFACTR 


KINLFT 

KTERM 

SEEBUF 


KUNIT 

SEEDW 


TMAXVX 

TMAXVY 

TMINVX 

TMINVY 

SEELOG 


KBEAMX 

KBEAMY 
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Routine 

Sets 

References 

SEEMOD 


KLINE 

KZAXIS 

KKMODE 

SEEMRG 


KLMRGN 

KRMRGN 

SEEREL 


TRCOSF 

TRSINF 

TRSCAL 

SEETRM 


KBAUDR 

KTERM 

KSIZEF 

KFACTR 

SEETRN 


TRFACX 

TRFACY 

KEYCON 

SEETW 


KMAXSX 

KMAXSY 

KMINSX 

KMINSY 

SETBUF 

KACHAR* 

KUNIT 

1 

KTRAIL* 

KOBLEN* 


KUNIT 

KPAD2 

SETMRG 

KLMRGN 

KRMRGN 


SETTAB 

KGNFLG 

KTBLSZ 

SVSTAT 

ALL COMMON VARIABLES 

SWINDO 

KMAXSX 

KMAXSY 

KMINSX 

KMINSY 


TABHOR 


KTBLSZ 

KBEAMX 

KBEAMY 

KRMRGN 

TABVER 


KTBLSZ 

KBEAMX 

KBEAMY 


Not used in the TSO version of TCS. 



Routine 

Sets 

References 

TERM 

KTERM 

KFACTR 


TINSTR 

KINLFT 

KINLFT 

TKDASH 

KDASHT 

KDASHT 


KLINE 

KLINE 


KMOVEF 

KTERM 

KBEAMX 

KBEAMY 

TKPNT 

KMOVEF 

KTERM 

TOUTS? 


KACHAR 

TTBLSZ 

KTBLSZ 


TWINDO 

KMINSX 

KMINSY 

KMAXSX 

KMAXSY 


V2ST 

KKMODE 

TIMAGX 


TREALX 

TIMAGY 


TREALY 

KGNFLG 


TIMAGX 

TREALX 


TIMAGY 

TREALY 

KKMODE 

VECMOD 

KKMODE 

KMOVEF 

KPCHAR 

KKMODE 

VWINDO 

TMAXVX 

TMAXVY 

TMINVX 

TMINVY 


WINCOT 


TMINVX 

TMINVY 

KEYCON 

KMINSX 

KMINSY 

TRPAR1 

TRPAR2 

TRPAR3 

TRPAR4 

TRPAR5 

TRPAR6 

TRFACX 

TRFACY 

XYCNVT 

KPCHAR 

KPCHAR 


KMOVEF 

KTERM 


KBEAMX 

KMOVEF 


KBEAMY 
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SECTION 6 SUBROUTINE CALLING REFERENCE CHARTS 


6.1. TCS Routines 


Routine 

Arguments 

Called By 

Calls 

A1IN 

NCHAR, lARRAY 


KAS2A1 

TINSTR 

A10UT 

NCHAR, lARRAY 


ANSTR 

KA12AS 

ADEIN 

NCHAR, lARRAY 

TINSTR 


ADEOUT 

NCHAR, lARRAY 

BUFFPK 


AINST 

NCHAR, lARRAY 


KAS2AM 

TINSTR 

ALFMOD 


ANCHO 

TOUTPT 


ANMODE 

ANSTR 

BAKSP 

CARTN 

FINITT 

HOME 

LINEF 

NEWPAG 

RECOVR 

RESET 

TABHOR 

TABVER 


ANCHO 

ICHAR 


ALFMOD 

NEWLIN 

TOUTPT 

ANMODE 



ALFMOD 

TSEND 

ANSTR 

NCHAR, lARRAY 

A10UT 

ALFMOD 



AOUTST 

NEWLIN 

TOUTST 

AOUTST 

NCHAR, lARRAY 


ANSTR 

KAM2AS 

BAKSP 



ALFMOD 

TOUTPT 

MOVABS 

BELL 



lOWAIT 

TOUTPT 

BUFFPK 

NCHAR, lARRAY 

TOUTST 

ADEOUT 



TSEND 

PLTCHR 
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Routine 

Arguments 

Called By 

Calls 

CARTN 


NEWLIN 

ALFMOD 

CWSEND 

MOVABS 

TOUTPT 

CHRSIZ 

ICODE 

RESET 

RESTAT 

TOUTST 

CLIPT 

BUFIN, BUFOUT 

V2ST 

PARCLT 

CSIZE 

IHORZ, IVERT 



CWSEND 


CARTN 

CZAXIS 

DRAWA 

DRWABS 

LINEF 

RESET 

REST AT 

TKDASH 

RECOVR 

TOUTST 

CZAXIS 

ICODE 


CWSEND 

DASHA 

X, Y, L 

DASHR 

DSHMOD 



DASHSA 

LVLCHT 

TKDASH 

V2ST 

DASHR 

X, Y, L 


DASHA 

REL2AB 

DASHSA 

X, Y, L 

DASHSR 

DASHA 

LVLCHT 

DASHSR 

X, Y, L 


DASHSA 

REL2AB 

DCURSR 

ICHAR, IX, lY 


SCURSR 

DR AW A 

X, Y 

DRAWR 

CWSEND 



DRAWS A 

LVLCHT 

V2ST 

VECMOD 

XYCNVT 

DRAWR 

X, Y 


DRAWA 

REL2AB 

DRAWS A 

X, Y 

DRAWSR 

DRAWA 

LVLCHT 

DRAWSR 

X, Y 


DRAWSA 


REL2AB 
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Routine 


Calls 


Arguments _ Called By 


DRWABS 

IX, lY 

DRWREL 

CWSEND 

VECMOD 

XYCNVT 


DRWREL 

IX, lY 


DRWABS 


DSHABS 

IX, lY, L 

DSHREL 

DSHMOD 

TKDASH 


DSHMOD 

L 

DASHA 

DSHABS 

TOUTPT 

XYCNVT 


DSHREL 

IX, lY, L 


DSHABS 


DWINDO 

XMIN.XMAX, 

YMIN, YMAX 


RESCAL 


ERASE 



IOWA IT 

RECOVR 

TOUTST 


FINITT 

IX, lY 


ALFMOD 

MOVABS 

TSEND 


GENFLG 

ITEM 




HDCOPY 



lOWAIT 

TOUTST 


HOME 



ALFMOD 

MOVABS 


INCPLT 

lONOFF, IDIR, NO 


IPMOD 

TOUTPT 


INITT 

IBAUD 


NEWPAG 

RESET 

SETBUF 


lOWAIT 

ITIME 

ERASE 

BELL 

HDCOPY 

NEWPAG 

TOUTPT 


IPMOD 


INCPLT 

TOUTST 


KA12AS 

NCHAR, KA1, KADE 

A10UT 



KAM2AS 

NCHAR, KAM, KADE 

AOUTST 



KAS2A1 

NCHAR, KADE, KA1 

A1IN 



KAS2AM 

NCHAR, KADE, KAM 

AINST 



KCM 

RCM 




KIN 

RIN 




LEFTIO 

lOBUFF 
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Routine 

Arguments 

Called By 

Calls 

LINEF 


NEWLIN 

ALFMOD 

CWSEND 

MOVABS 

TOUTPT 

LINHGT 

NUMLIN 



LINTRN 



RESCAL 

LINWDT 

NUMCHR 



LOGTRN 

KEY 


RESCAL 

LVLCHT 


DASHA 

DASHSA 

DRAWA 

DRAWSA 

MOVEA 

POINTA 

REL2AB 

REVCOT 

MOVABS 

IX, lY 

CARTN 

VECMOD 



FINITT 

HOME 

LINEF 

MOVREL 

BAKSP 

NEWPAG 

RECOVR 

RESET 

TABHOR 

TABVER 

XYCNVT 

MOVEA 

X,Y 

MOVER 

LVLCHT 

V2ST 

VECMOD 

XYCNVT 

MOVER 

X,Y 


MOVEA 

REL2AB 

MOVREL 

IX, lY 


MOVABS 

NEWLIN 


ANCHO 

CARTN 



ANSTR 

TABHOR 

LINEF 

NEWPAG 


INITT 

ALFMOD 

IOWA IT 

MOVABS 

TOUTST 

PARCLT 

RL1, RL2, RM1, RM2, 

RN1, RN2 

CLIPT 
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Routine 

Arguments 

Called By 

Calls 

PCLIPT 

X,Y 

REVCOT 

V2ST 


PLTCHR 

IX, lY, ICHAR 

BUFFPK 

XYCNVT 


PNTABS 

IX. lY 

PNTREL 

PNTMOD 

TKPNT 

PNTMOD 


PNTABS 

POINTA 

RECOVR 

TOUTPT 

PNTREL 

IX, lY 


PNTABS 

POINTA 

X,Y 

POINTR 

LVLCHT 

PNTMOD 

TKPNT 

V2ST 

POINTR 

X,Y 


POINTA 

REL2AB 

POLTRN 

ANGMIN, ANGMAX, 

RSUPRS 


PSCAL 

PSCAL 


PLTRN 

RESCAL 

WINCOT 

RECOVR 


ERASE 

ALFMOD 



RESTAT 

MOVABS 



SCURSR 

PNTMOD 

CWSEND 

REL2AB 

XIN, YIN, XOUT, YOUT 

DASHR 

DASHSR 

DRAWR 

DRAWSR 

MOVER 

POINTR 

LVLCHT 

RESCAL 


DWINDO 

LINTRN 

LOGTRN 

SWINDO 

TWIN DO 

VWINDO 

PSCAL 

RESET 


IN ITT 

ALFMOD 



TERM 

CHRSIZ 


CWSEND 

MOVABS 
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Routine 


Arguments 


Called By 


Calls 


RESTAT 

RARRAY 


CHRSIZ 

CWSEND 

RECOVR 

REVCOT 

IX, lY, X, Y 

LVLCHT 

VCURSR 

PCLIPT 

RROTAT 

DEG 



RSCALE 

FACTOR 



RSTTAB 

ITAB, ITABLE 



SCURSR 


DCURSR 

RECOVR 



VCURSR 

TINSTR 

TOUTST 

SEEBUF 

KFORM 



SEEDW 

XMIN, XMAX, YMIN, YMAX 



SEELOG 

IX, lY 



SEEMOD 

LINE, IZAXIS,MODE 



SEEMRG 

MLEFT, MRIGHT 



SEEREL 

RCOS, RSIN, SCALE 



SEETRM 

ISPEED, ITERM, KHRSIZ, 
MAXADR 



SEETRN 

XFAC, YFAC, KEY 



SEETW 

MINX, MAXX, MINY, MAXY 



SETBUF 

KFORM 

IN ITT 


SETMRG 

MLEFT, MRIGHT 



SETTAB 

ITAB, ITABLE 



SVSTAT 

RARRAY 



SWINDO 

MINX, LENX, MINY, LENY 


RESCAL 

TABHOR 

ITABLE 


ALFMOD 

MOVABS 

NEWLIN 

TABVER 

ITABLE 


ALFMOD 

MOVABS 

TCSLEV 

LEVEL 



TERM 

ITERM, MAXADR 


RESET 

TINPUT 

ICHAR 


TINSTR 

TINSTR 

NCHAR, lARRAY 

A1IN 

ADEIN 



AINST 

SCURSR 

TINPUT 

TSEND 

TKDASH 

IX, lY 

DASHA 

CWSEND 



DSHABS 

TOUTPT 


XYCNVT 
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Routine 

Arguments 

Called By 

Calls 

TKPNT 

IX, lY 

PNTABS 

TOUTPT 



POINTA 

XYCNVT 

TOUTPT 

ICHAR 

ANCHO 

ALFMOD 

BAKSP 

BELL 

CARTN 

DSHMOD 

INCPLT 

lOWAIT 

LINEF 

PNTMOD 

TKDASH 

TKPNT 

VECMOD 

TOUTST 

TOUTST 

NCHAR, lARRAY 

ANSTR 

CHRSIZ 

CWSEND 

ERASE 

HDCOPY 

IPMOD 

NEWPAG 

SCURSR 

TOUTPT 

XYCNVT 

BUFFPK 

TSEND 


ANMODE 

FINITT 

TINSTR 

BUFFPK 

TTBLSZ 

ITBLSZ 



TWINDO 

MINX, MAXX, MINY, MAXY 


RESCAL 

V2ST 

I, X, Y, IX, lY 

DASHA 

CLIPT 



DRAWA 

PCLIPT 



MOVEA 

VECMOD 



POINTA 

WINCOT 

XYCNVT 

VCURSR 

ICHAR, X, Y 


SCURSR 

REVCOT 

VECMOD 


DRAWA 

TOUTPT 


DRWABS 

MOVABS 

MOVEA 

V2ST 
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Routine 

Arguments 

Called By 

Calls 


VWINDO 

XMIN,XRANGE, 

YMIN, YRANGE 


RESCAL 


WINCOT 

X, Y, IX, lY 

PSCAL 

V2ST 



XYCNVT 

IX, lY 

DRAWA 

PLTCHR 




PR WARS 
DSHMOD 
MOVABS 

MOVEA 

TKDASH 

TKPNT 

V2ST 

TOUTST 



6.2. Standard FORTRAN Routines Called By TCS 


FORTRAN 

Routine_Called By 


ABS 

DASHSA 

DRAWSA 

PSCAL 

TKDASH 

A LOG 

RESCAL 

WINCOT 

AMAX1 

PSCAL 

REVCOT 

AMIN1 

PSCAL 

REVCOT 

AMOD 

REVCOT 

ATAN2 

REVCOT 

COS 

RROTAT 

WINCOT 

FLOAT 

KCM 


KIN 

LOGTRN 

PSCAL 

RESCAL 

RESET 

REVCOT 

SVSTAT 

TKDASH 






FORTRAN 


Routine 

Called By 

lABS 

INCPLT 

IFIX 

DASHSA 


DRAWSA 


PLTCHR 


PSCAL 


RESCAL 


REVCOT 


TKDASH 


RESTAT 


WINCOT 


KIN 


KCM 

MAXO 

PSCAL 

MINO 

BUFFPK 


PSCAL 

MOD 

INCPLT 


PLTCHR 


SCURSR 


TKDASH 

SIGN 

DASHSA 


DRAWSA 


PSCAL 

SIN 

RROTAT 


WINCOT 

SORT 

REVCOT 


TKDASH 
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APPENDIX SYSTEM-DEPENDENT FEATURES 


A1. Terminal Control System I/O Structure 

Six subroutines, ADEIN, ADEOUT, KAM2AS, KA12AS, KAS2AM and KAS2A1, are not included with 
the standard TCS source code and must be provided by the implementer. These routines are included in 
versions of TCS for TSO, PDP-11 and CDC-Synchronous systems. 

If alphanumeric formatted I/O is not required, the latter four subroutines may be omitted and the sub¬ 
routines that call them removed from the source file (see the TCS System Manual, Section 4.3). 

The structure chart below shows the relationship of these six subroutines to the other TCS I/O sub¬ 
routines. Full descriptions follow. 



I/O Structure Chart 
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A 1.1. User-Written I/O Subroutines 


ADEOUT 

The routine BUFFPK assembles all the characters to be output in a buffer, takes care of any recovery 
needed (see below for buffer formats) and calls ADEOUT to send the contents of the buffer to the 
Terminal. The calling sequence for ADEOUT is: 

CALL ADEOUT (NCHAR,IARRAY) 

where NCHAR is the number of characters to be sent from the buffer, and I ARRAY is the buffer, an in¬ 
teger array of ADE characters. The maximum number of characters which ADEOUT can handle should 
be determined by the size of the system output buffer. TCS was written with a maximum buffer size of 
72, which the implementer may change to match his system's output buffer at the following locations: 
dimension and data statements in BUFFPK, A10UT, and AOUTST and in the code of A10UT and 
IN ITT. 

lARRAY comes out of BUFFPK in one of four formats, depending on the Status Variable KUNIT found 
in /TKTRNX/ Terminal Status Area. The subroutine INITT calls SETBUF(I) and thereby sets KUNIT 
to 1, but the implementer may change this to 2, 3, or 4 in the source code, and the user may change 
KUNIT through his own call to subroutine SETBUF. The relation of lARRAY and KUNIT is as follows: 


KUNIT 

lARRAY 

1 

Recovered output, which is pure output preceded and followed by the necessary 
characters to return the Terminal to the condition (mode and beam position) it 
was in prior to the last interline sequence. 

2 

4014 Terminal output, which is pure output preceded by one SYN and followed 
by one ESC. 

3 

Pure output, which is only the characters given to BUFFPK by TOUTST and 
which assumes that interline characters are suppressed. 

4 

Pure output, unbuffered by BUFFPK. 


/W 

BUFFPK may add some timing characters to pure output. 

Output of the following ASCII characters is not required by the Terminal Control System:* 

NUL, SOH, STX, ETX, EOT, ENQ, ACK, HT, VT, SO, SI, DLE, DC1, DC2, DCS, DC4, NAK, 

CAN, EM. 

However, other Tektronix software packages make use of the Terminal Control System I/O section and 
require the transmission of some of these characters, so ADEOUT should translate and output as much of 
the standard 128 ASCII character set as possible. The implementer may wish to use the translation sub¬ 
routine KAS2A1 or KAS2AM to handle the translations required by ADEOUT. 

*RUBOUT (ADE 127^q) is used by TCS as a graphic addressing character, so if it cannot be handled, whenever 127 ^q 
is found in lARRAY change it to 126 iq. 
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How ADEOUT is written partly determines whether interline characters will cause any problems (see 
Section A 2 for more information). 


AD^ N_ 

Input to the Terminal Control System subroutines is through TINSTR, which calls ADEIN when it needs 
more input and buffers it for use by the other input subroutines (see the I/O Structure Chart on page 
A1 of this manual and the I/O Section of the User Manual). The calling sequence is: 

CALL ADEIN (NCHAR,IARRAY) 

where I ARRAY is the integer array of the ADE characters received in the last line of input terminated 
by a CR but not including the CR, and NCHAR is the number of meaningful characters* in I ARRAY. 

Since NCHAR should be limited only by the system input buffer size, and TCS was written with a 
maximum input buffer size of 72, the implementer should change the number 72 to match his system's 
input buffer size in the dimension statements of these subroutines: TINSTR, A1 IN and AINST. 

ADEIN should perform four functions: 

1. Accept characters from the terminal 

2. Translate these characters to ADE format 

3. Place them into I ARRAY 

4. Compute NCHAR to be the number of meaningful characters returned. 

As a minimum, the TTY character set should be accepted and translated, but the entire ASCI I set is 
most desirable. The routine KA12AS or KAM2AS could be used for this translation. 

ADEIN input should be essentially the same as normal monitor mode input, with identical echo and 
editing features. For example, when FORTRAN I/O is performed, if a Control-U is used to delete a 
character, ADEIN should allow for this. Note that the graphic input (GIN) mode characters, ADE 32 
through 63, should not be used as editing characters. 

A 1.2. User Written Translation Subroutines 

The implementer must provide four simple translation subroutines, KA12AS. KAM2AS. KAS2A;| . 
and KAS2AM, to support the alphanumeric subroutines A,1.QUT, AOUTST, A1 IN, and AINST, respect- 
ively. The following discussion assumes that A1 and Am formats are used by the implementer in these 
routines, but any alphanumeric format which works is satisfactory. The "m" referred to is the number of 
characters per word the system supports (4 on GE and IBM, 5 on DEC PDP-10, 2 on many mini-computers, 
etc). A4 is recommended for compatibility with IGP. 

‘Trailing blanks, including any spaces entered from the keyboard immediately before the CR, are not meaningful and 
should not be included when computing NCHAR. TINSTR adds trailing blanks as needed when the array it is filling is 
longer than NCHAR. 
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KA12AS and KAM2AS 


These routines translate characters from alphanumeric format into ADE integers. They should handle the 
character set required for ADEIN. KA12AS translates the first NCHAR characters from an A1 format 
array into an ADE integer array, while KAM2AS translates the first NCHAR characters from an Am for¬ 
mat array into an ADE integer array. For example, an alphanumeric "A" should be translated to the 
integer 65, q . The calling sequences are: 

CALL KA12AS (NCHAR,KA1,KADE) 

CALL KAM2AS (NCHAR,KAM,KADE) 

where NCHAR is the number of characters to be translated, KA1 and KAM are the alphanumeric arrays 
to be translated, and KADE is the integer array for the translated ADE characters. 


KAS2A1 and KAS2AM 

These routines translate characters from ADE integer form into alphanumeric format. They should handle 
the character set required for ADEOUT. KAS2A1 translates the first NCHAR characters from an ADE 
integer array into an A1 format array, while KAS2AM translates the first NCHAR characters from an 
ADE integer array into an Am format array. For example, the integer 66, „ should be translated to the 
alphanumeric character "B". The calling sequences are: 

CALL KAS2A1 (NCHAR,KADE,KA1) 

CALL KAS2AM (NCHAR,KADE,KAM) 

where NCHAR is the number of characters to be translated, KADE is the integer array containing the 
ADE characters to be translated, and KA1 and KAM are the arrays for the A1 and Am translated 
characters. 
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A 2. Interline Characters 


Most computer systems are oriented to non-graphic-display teletypewriter terminals, and this causes pro¬ 
blems for software written to drive the Tektronix graphic display terminals. The teletypewriter requires 
CR's, LF's and certain characters (NUL, SYN or RUBOUT) between each line of output to reposition the 
typing head and advance the paper. Many computer systems insert these characters automatically if they 
have not appeared in the last 72 (or 80 or 132) characters of the output stream to ensure that the tele¬ 
typewriter does not lose data by overstriking. The interline characters CR and LF have the following 
effects on Tektronix graphic display terminals: 

1. A CR puts the terminal into alphanumeric mode and moves the alphanumeric cursor to the left 
margin. 

2. A LF moves the alphanumeric cursor or graphic beam position down one line height. 

3. If the terminal is in graphic input (GIN) mode, a CR puts the terminal into alphanumeric mode with¬ 
out sending the crosshair cursor coordinates. 


The 4014/4015 Terminals were designed to allow the programmer to get around these problems. No 
action occurs if these Terminals receive an ESC followed by one or more of these characters: CR, LF, 
NUL, RUBOUT. TCS takes advantage of this feature if buffer type 2 (see page A2) is chosen on 4014/ 
4015 Terminals. A type 2 buffer ends with an ESC, so that the CR and LF which normally follow a line 
of output are ignored by the Terminal. This buffer begins with a SYN, otherwise a no-op character, which 
causes the Terminal to pay attention again. Thus interline characters cause no problem if buffer type 2 is 
used on a 4014 or 4015 Terminal. 

For systems where all CR's and LF's can be suppressed both between lines of output and where the com¬ 
puter system would otherwise automatically insert them, use buffer type 3 or 4. Most systems allow the 
suppression of CR's and LF's between lines of program-controlled output (with carriage control char¬ 
acters in FORTRAN, for example), and many systems allow the suppression of the automatically inserted 
CR's and LF's through monitor commands (TYPE 6 on GE Mark III, TTY NO CRLF on DEC PDP-10), 

For those systems which cannot suppress the automatically inserted interline characters, the interline 
characters between lines of output should not be suppressed, for they come at predictable times. Buffer 
type 1 is designed for use with 4006-1, 4010, 4012 and 4013 terminals on those systems which 
cannot otherwise overcome the interline character problems. Graphic input mode cannot be used 
in this case, however, because of effect 3 above. 

For those systems which do suppress interline characters but in doing so suppress all CR's and LF's, 
including those placed in the TCS buffer for line control, the subroutines CARTN and LINEF may be 
changed to move the alphanumeric cursor graphically. These changes include deleting lines of code from 
these routines so they appear as follows: 
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-SUBROUTINE—CARTN-^-TEKTRONIX, INC. - 

SUBROUTINE CARTN 

COMMON /TKTRNX/ TMINVX.TMINVY.TMAXYX,TMAXVY,TREALX.TREALY. 

& nMAeX.TIMAeY.TRCOSF,TRSINF,TRSCAL.TRFACX,TRFACY, 

4 TRPARl.TRPAR2,TRPAR3,TRPAR4.TRPAR5,TRPAR6,KM0FL6C2>, 

& KONMOD,KPADV,KACHAR,KOBLEN.KTRAIL,KLEVEL,KPAD2, 

4 KBAUDR,K6NFL6,KGRAFL,KHOMEY,KKMODE,KHORSZ.KVERSZ. KTBLSZ, 

4 KSIZEF.KLMR6N,KRMR6N.KFACTR.KTERM,KLINE,KZAXIS,KBEAMX,KBEAMY, 

4 KMOVEF,KPCHARC5>,KDASHT,KMINSX,KMINSY,KMAXSX,KMAXSY,KEYCON, 

4 KINLFT,KOTLFT,KUNIT 
CALL MOVABSCKLMReN,KBEAMY3 
CALL ALFMOD 
RETURN 
END 


C-SUBROUTINE—LINEF---TEKTRONIX, INC. - 

C 

SUBROUTINE LINEF 

COMMON /TKTRNX/ TMINVX,TMINVY,TMAXVX,TMAXVY,TREALX,TREALY, 

4 TIMA6X,TIMAGY,TRCOSF,TRSINF,TRSCAL,TRFACX, TRFACY, 

4 TRPAR1,TRPAR2,TRPAR3,TRPAR4,TRPAR5,TRPAR6, KMOFLSCZ), 

4 K6NM0D,KPADV,KACHAR,KOBLEN,KTRAIL,KLEVEL,KPAD2, 

4 KBAUDR,K6NFL6,K6RAFL,KH0MEY,KKM0DE,KH0RSZ,KVERSZ,KTBLSZ, 

4 KSIZEF,KLMRSN,KRMRGN,KFACTR,KTERM, KLINE,KZAXIS,KBEAMX,KBEAMY, 

4 KMOVEF,KPCHARC5>, KDASHT,KMINSX,KMINSY, KMAXSX,KMAXSY,KEYCON, 

4 KINLFT,KOTLFT,KUNIT 
KBEAMY-KBEAMY-CKYERSZ+KFACTR/2)/KFACTR 
IFCKBEAMY .BE. 0>SO TO 100 
KBEAMY-KHOMEY 

100 CALL MOVABS<KBEAMX,KBEAMY> 

CALL ALFMOD 

C » RESTORE ZAXIS MODE IF APPROPRIATE 
200 IFCKTERM .BE. 2)CALL CWSEND 
RETURN 
END 
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A 3. Compatibility With Other Tektronix Software 

A11 PLOT 10 packages of Level 1 or later are internally compatible with each other. The products 
listed below were originally compatible with Release 2.0 of TCS and must be updated as indicated 
to work properly with Levell TCS. 


CHARACTER GENERATION SYSTEM: (all releases through 1.1) 

Routine RROTAT and RSCALE in^he Character Generation System contain the old TCS 
Release 2.0 /TKTRNX/ Terminal Status Area. Since both RROTAT and RSCALE are 
contained in TCS Release 3.0 through Level 1, they must be removed from the Character 
Generation System. 


PREVIEW ROUTINES FOR CALCOMP PLOTTER: (all releases through 1.1) 

Routine WHERE in the Preview package contains a reference to the old version of /TKTRNX/ 
Terminal Status Area. This version of /TKTRNX/ must be replaced by a copy identical to that 
in TCS Level 1. No other changes are required. 


ADVANCED GRAPHING II: (all releases through 1.2) 

The TCS extension, TCSEXT, should be deleted. See the Implementation Notes for AG-II 
Release 1.2 for a precise definition of TCSEXT. 

One subroutine in AG-II, SETWIN, needs modification. See AG-II Implementation Notes 
for Release 1.2 for details. 


The 4006-1 Terminal 

Because the 4006-1 terminal does not generate a hardware backspace or use the GIN mode, you may 
wish to modify subroutine BAKSP so that it will accomplish this task. Refer to the 4010A01 
PLOT 10 Terminal Control System Installation Guide. 


Changes Necessary in Programs Using Release 2.0 

Any program referencing Status Variables in the Release 2.0 Terminal Status Area will not run with 
Level 1 without modification, since this common area has been changed. However, all the functions 
which required the Release 2.0 user to access this area are now supported by Level 1 subroutines, 
so conversion of these programs if fairly simple. To convert these programs, delete the /TKTRNX/ 
common area and change the code lines which reference the Status Variables to call the appro¬ 
priate subroutines, as follows: 
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Release 2.0 Status Variables Level 1 Subroutines 

TRSINF, TRCOSF RROTAT 

TRSCAL RSCALE 

KLMRGN, KRMRGN SETMRG 


Since the tab tables KVERTT and KHORZT are not carried in the Release 3.3 Terminal Status 
Area, the user must provide a dimension statement for KHORZT and KVERTT in his program 
using the tab routines. 


NOTE 

Access to other variables in the /TKTRNX/ Terminal Status Area was not supported in Release 2.0, 
so it win be necessary for the user who accessed them to locate the correct subroutine or function 
in Release 3.3 to replace references to them. 
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User-Writter I/O Routines 

For TSO, PDP-11, CDC Systems 
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Utility Routines 
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W Wait During I/O 

Z Z-Axis Modes 
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SUBROUTINE AND VARIABLE INDEX 


Status Variables Referenced in Text* 

KDASHT 

KEYCON 

KGNFLG 

KGRAFL 

KKMODE 

KLINE 

KUNIT 

KZAXIS 

TRFACY 

TRPAP 1 thru 6 


System Subroutines 

ADEIN (NCHARJARRAY) 
ADEOUT(NCHARJARRAY) 
ALFMOD 

BUFFPK (NCHARJARRAY) 

CLIPT (BUFIN,BUFOUT) 
CWSEND . 

*For a complete list, see Section 5. 
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lOWAIT(ITIME) 

IPMOD 

KA12AS (NCHAR, KA1, KADE) 

KAS2A1 (NCHAR,KADE,KA1) 

KAM2AS (NCHAR,KAM,KADE) 

KAS2AM (NCHAR,KADE,KAM) 

LVLCHT 

PARCLT (RL1,RL2,RM1,RM2,RN1,RN2) 
PCLIPT (X,Y) 

PLTCHR (IX,IY,ICHAR) 

PNTMOD 

PSCAL 

REL2AB (XIN,YIN,XOUT,YOUT) 
RESCAL 

REVCOT (IX,IY,X,Y) 

TKDASH (KX,IY) 

TKPNT (IX,IY) 

TSEND 

UREVECT(IX,IY,X,Y) 

URSCAL 
USDASH (X,Y,L) 

USDRAW(X,Y) 

USECOT (X,Y,IX,IY) 

USETRN [user-defined arguments] 
V2ST(I,X,Y,IX,IY) 

VECMOD 

WINCOT (X,Y,IX,IY) 

XYCNVT (IX,IY) 


3-5, 3-9 
3-5 
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A-1,A-3,A-4 
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3-12 
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A1IN 

A10UT 

AINST 

ANCHO 

ANMODE 

ANSTR 

AOUTST 

CARTN 

CHRSIZ 

CZAXIS 

DASHA 

DASHSA 


4-1, A-1, A-3 
4-1, A-1, A-2 
4-1, A-1, A-3 
A-1 

3- 1 

4- 1, A-1, A-2 
4-1, A-1, A-2 
4-20, 4-21, A-6 
4-17 

4-20, 4-21 

3- 11 

4- 3, 4-11 
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DRAWA 

3-11,4-20,4-22 

DRAWSA 

4-3,4-5,4-12 

DRWABS 

4-20, 4-22 

DWINDO 

3-8 

IN ITT 

3-5, 3-12,4-2, 5-4 to 5-9 

LINEF 

4-20,4-21, A-6 

LINTRN 

3-8 

LOGTRN 

3-8 

MOVEA 

3-11 

PNTABS 

4-18 

PNTMOD 

4-18 

PNTREL 

4-18 

POINTA 

3-11,4-18 

POINTR 

4-18 

POLTRN 

3-8 

RECOVR 

4-18 

RESET 

4-2, 4-17, 4-20 

REST AT 

4-17, 4-20 

RROTAT 

3-8, A-7, A-8 

RSCALE 

3-8, A-7, A-8 

SETBUF 

4-23, A-2 

SETMRG 

A-8 

SETTAB 

3-5 

SWINDO 

3-8 

TERM 

3-11 

TINPUT 

A-1 

TINSTR 

4-2, A-1,A-3 

TOUTPT 

A-1 

TOUTST 

4-2, A-1, A-2 

TWINDO 

3-8 

VWINDO 

3-8 
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MANUAL CHANGE INFORMATION 

TEKTRONIX® 

PRODUCT 

CHANGE REFERENCE Cl/877_ 


committed to 

technical excellence 

070-2242-00 

DATE S"2-77 _ . 


CHANGE: DESCRIPTION 


For 4010A10 TCS for IBM 360/370 only 
The changes do not effect other systems implementing TCS. 

On page 3-2 in the description of BUFFPK, the third sentence in the paragraph 
reads: ”For buffer types 1, 2, or 3, if NCHAR is larger than MAXLEN,..." 

The reference to MAXLEN should be changed to KOBLEN. 

On the chart on pages 4-1 and 4-2 delete the references to MAXLEN under 
subroutines ANSTR, AOUTST, BUFFPK, and TOUTST. On page 4-1 the footnote 
should be changed to read: 

132 on PDP-11 systems; 80 on CDC-Synchronous systems, and 89 on 360/370 
systems." 

On page 4-7 ANMODE should be eliminated from the listing of routines not 
called internally by TCS. 

On page 5-2 it should be noted that with Option 22 KMOFLG ^ used, and the 
text should read; 

KMOFLG (1) KMOFLG (1) = escorted mode flag 

0 . = disabled 

1 = enabled (for use in communicating to 

Option 22 interfaces) 

KMOFLG (2) Not used 

The chart on pages 5-4 through 5-9 should be amended as follows: 


Page 

Number 

Status 

Variable 

Initial Setting 
(INITT) 

Set By 

Referenced By 

*5-4 

KACHAR 

* 

SETBUF 

, AMSTR 

TOUTST 

** 5-7 

KOBLEN 

89 

INITT 

TOUTST 

AlOUT 

AOUTST 







^Delete this line from the chart. 
**Amend this line as shown. 
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PRODUCT 


PLOT 10 


CHANGE REFERENCE- 


Cl/877 


8-2-77 


CHANGE: 


DESCRIPTION 


The following changes should be made to the chart on pages 5-10 through 5-17: 


Routine 


References 


**5-10 


** 5-10 


*5-17 


AlOUT 


AOUTST 


TOUTST 


KOBLEN 


KOBLEN 


KOBLEN 


**Add this line to chart. 
*Amend this line as shown. 


KOBLEN should be added to the list of references listed with BUFFPK on 
page 5-10. Also, the footnote on page 5-12 is no longer applicable. 


With the 360/370 version of TCS subroutine FINITT calls ANMODE and with 
Option 22 ADEIN calls ADEOUT. These differences require the following 
changes to the subroutine charts on pages 6-1 through 6-9: 


Routine 


Argument s 


Called By 


Calls 


ADEIN 


ADEOUT 


ANMODE 


FINITT 


TSEND 


NCHAR, lARRAY 


NCHAR, lARRAY 


IX, lY 


TINSTR 


BUFFPK 

ADEIN 


FINITT 


ANMODE 

TINSTR 


ADEOUT 


ALFMOD 

TSEND 


ANMODE 

MOVABS 


BUFFPK 


On page 6-1 FINITT should be deleted from the list of routines which 

call ALFMOD. 


The I/O structure chart on page A-1 and the flowchart on page A-8 should 
show that ADEIN makes a call to ADEOUT. — if Option 22 is implemented. 


The last sentence in the first paragraph on page A-2 should be changed to read: 
**TCS was written with a maximum buffer size of 89, which the implementer 
may change to match his system’s output at the following locations: 
dimension statement in BUFFPK, AlOUT, and AOUTST and in the code of INITT.” 
Note, however, that it is not recommended that the change be made. 
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PRODUCT 


PLOT 10 


CHANGE REFERENCE. 


Cl/877 


8-2-77 


CHANGE: 


DESCRIPTION 


The last sentence in the first paragraph describing ADEIN on page A-3 should 
be changed to read: 

”...and TCS was written with a maximum input buffer size of 89, the 
implementer should change the number 89 to match his system’s input 
buffer size in the dimension and data statements of these subroutines: 


TINSTR, AlIN and AINST." 

Again, it is not recommended that this change be made. 


The flowchart on page A-8 should show that FINITT does not call TSEND or 
ALFMOD, but does call MOVABS and ANMODE. 

Again, note that the above changes apply only to TCS implementations for 
IBM 360/370. They do not effect other versions of TCS. 
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MANUAL CHANGE INFORMATION 

TEKTROIMIX® 

PRoniicT PLOT 10 4010A01 

CHANGE REFERENCE G2/379 

■■i 

committed to 

technical excellence 

(AlO, All, A12) 

DATE 3-12-79 


CHANGE: 070-2242-00 DESCRIPTION 


TEXT ADDITION 

AFTER APPENDIX A 
ADD: 

SUBROUTINES WHICH RETAIN HISTORY 

The following list shows variables within the code which retain the 
original values through subsequent executions. 


SUBROUTINE 

VARIABLES 

XYCWUT 

I DREW 

BUFFPK 

LEWOUT 


NODATA 


ITEMP 


KSYWCS 
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